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ttca -5 £&{:: ^T (i#<7) J: -5 
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ffPnit>*-4— ! K5e«iz*v5. 

*fcx ±¥<7)tHM±T'(J, /J^ 
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$X£X. 8#fcttL*Lfc ! 

7. +— fc 8 R £(* JO SATtf) 2 ■§« 
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CATV 
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ft * ffi * 
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mm ( v > • 'y-/cw)^^^iiff 

*f l*T*£ < , " =l -*®m?£ if T' 

(RTTY), 7t-?->$'J(FAX\ H 
jJiSftxUt'CSSTV), *LT«ffi 
<7)7=- U fc:*( ATV) £ ift ^ I ^ 4Vf 
<T$:$kLL'ZttfX'$$T 

<7)/\>x-i'— h 7>->— /\*— T'jl 



ftff( 'J fc?-*)a^»$ft, ^1& 

CIJ77fa Z^ffl C7)ii1f |^S*< 
Jills] LTl^To 

Z o Ltz'tty%<n^T\ 77fi 
T'te^^zi >£°^-?£ %%U1 # , 
*-y h^-^ffMLcfc-^TS 

L s *S*fiIHT-( Jilff ^ / -f X<7) 
:: ft fcOTT S '.&£*<* U £ "To 

MJllI i J £ II)T'&5AX.25tJ:py. 'J 
*> T\ ^IfCO^ -y K 7 - ? Tfi&b 
ft-5X.25^7'^^a7 7 teHffl(z^ 
r<-7 7^Ltzh<DX\ iifl_bc7) 

$9<7)7°P h =UUT"f AX.25T(Jt-' 
- ? £i§S KMMiH- E^D -3 T / \°<r 
•y K'J^MtLTai«JI:f ~<7) 
f;*X Z^iilf^xttiVN^'y hii 

fr^Wft-a^-n 

7 v ^ j. 7«fc£frfc 9 iz (i, 
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T* fc •£*&£#& 3 (J Z'ffisiLX'T L s 
^Tbft/zP-JU+fO^ieL 



x$)i)ito p-;uh7-^> 

;ut»-r >^fj'j^Tbft *>/«c* 

IZ^/xCOP— )\*M >it JR1 VMXT't o 
WA'J^-Tftlf, ^+-^T'(7)^ 
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-3Tl^<7)T'T 
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£f„ z tilth * t &ffi$i<nw& 

UT-itt^wMmzmxL «t -5 £ 
r *fe<7>TT„ 
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£l3LTl*£"to LUTIT-^-yp 

£TA\ T#<7)BBS£tiHB3E&£ 
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mm t T'tstni^tt < fc*$ is 
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^tt*f isi*e§ *rti£$w* 

*Uffliffi*&::^£ti!Lft#b, 3-fI 

1 07JR atrf^tz fl gm^ijffl*'^ ii 
fflft 1: t v? fc 4: c 3 T\ tm*m 
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*ft Jf^f- ^ ^rifea^-i^ A. /^CD- % 
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A\, tbiHl^i'tfmis^Miz 
*fl\£3fci::fc*«l:"5*!o 
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<7>IT-V1200/io JUttT** h*£si 
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WSCt ?.Zi #T? § &l v(5 2T N a 
»MIZ ft-3 T, $&&**£ f 

T—I.Z3-3 31/- KD^-yya > 

$) b ^ U «> * - K (zgff L rc^t^: 
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fclN^fe(Z)T, @-JK)mig#-§-?r 
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Tlst)lift£&iff a £LXli..-£m& 
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rav.^*3*5fe: it7'<>l 

O03-325-5335 
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[Ell] ^Vzi>%-^fB*(zLT, 
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•y H'7 0> K <7>/a# U fe x ffi B 
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7*7 ^-^R L $> -5 cox- L i -5 * N o 
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S-#lvX N 'J U-— &lZtt#>%<7) 
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W3Xf U 7^Tl^^T*T*\ 
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SX VOICE RECORDER 



)v'o zcDmBWituzmwt&oit, msxicws* 



ggUjW^^gg^(z^oS^ad<!:t\5 w 7jt 



-fxb^-57" fdo v--0Fr^-;b7 s <^^l(. 



Ao&feCDS, MV7j^(c^bvyur3D®(^-rs, 



C.G.zi^xXSfccfcSlX! 




I file ncme= A: ROCK . 


y c d 


:■■■ 
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|R rtS 
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|s |*o 
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|ctei 5-,"1t,ii rt6 »*aif9± 
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9-<A/©V7N«*/u#10 

CS32 CE32+ R AMB4K W± ^n^A §S* *l!B 








IZ 



fll 



fc 






Z(7)yp^7A(iMSX2#>J:t/ 
MSX2+J|:fflT'Tc, *fc» 7°n?y 



E=^7 7< ht>/\'-fi>y 

E - H* l t ^ * feT-^ (j o^-t 

[L]=7 1 -'-^C0P- K 

l]=^7 7-f hf-?^ BASICS 
DATAl££ LT-tz-7Y& 
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Z^-YhlT-f* 



11300 CLEAR 1000:DEFINT A-Z :MAXFILES=2 :SCREEN 5 ,2 :SETPASE1 , 1 

:CLS:C0L0R15:0PEN"grp:"AS#l :DIM S(15,15) ,C(15) ,C$(31) :0N ER 

ROR GOTO 1930 

1010 A$="" :FORI=0TO31:A$=A$+CHR$(VAL("S<h"+MID*("42+"ca8ec50c 

abc003c3c3c50fc38-fe004e8a4eaaeeca5e0054d43ec41edcda00" ,1*2+ 

1,2))) :NEXT:SPRITE$(0)=A$:FORI=0TO31:C$(I)=STRIN6$(16,8) :NE 

XT:COLOR SPRITE* ( 1 ) =C$ (0) :VPOKEBASE (28) +4 ,&HD8 

1020 LINE (0,0)-(255,211) ,4 ,BF :LINE (8,8) -( 136 , 136) ,0,BF 

1030 LINE (16, 144) -(31, 159) ,0 ,BF :PSET (40 , 144) ,0 :PRINT#1 , " [RE 

TURN]" 

1040 SP=0:LINE(16,168)-(31,183) ,0 ,BF :PSET (40 , 168) ,0:PRINT#1 

/'SPRITE ":60SUB 1350 

1050 FORI=0TO16:LINE(I*8+8,8)-(I*8+8,136) , 15 :LINE (8 , 1*8+8) - 

(136,1*8+8) ,15:NEXT 

1060 FORI=0TO2:LINE(I*64+8,0)-(I*64+8,144) , 15 :LINE (0 , 1*64+8 

)-(144, 1*64+8) ,15:NEXT 

1070 C=15:PSET( 176,8) ,0:PRINT#1 ,"< U.fU) UV :GOSUB 1340 

1080 PSET(160,24) ,0:PRINT#1,"[A] 

1090 PSET(160,40) ,0:PRINT#1,"CB] 

"CC3 

"EE] 

"CG3 

,"[P3 
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1100 PSET(160,56) ,0:PRINT#1,"[C] W 

1110 PSET(160,72) ,0:PRINT#1,"[E] W ft£ 

1120 PSET(160,88) ,0:PRINT#1,"CG] tff V I" 

1130 PSET(160,104) ,0:PRINT#1,"[P] IYA" 

1140 PSET(160,120) ,0:PRINT#1,"CF3 WnV I" 

1150 PSET(160,136) ,0:PRINT#1,"CS] l+-,V " 

1160 PSET(160,152) ,0:PRINT#1,"CL] 3-fc m " 

1170 PSET(160,168) ,0:PRINT#1,"CD3 V -£" 

1180 X=0:Y=0:GOSUB 1310 

1190 GOSUB 1310 

1200 A=STICK(0) :IF A=0 GOTO 1230 

1210 X=X-(A>1 AND A<5) + (A>5 AND A<9) :Y = Y-(A>3 AND A< y 7) + (A<3 
OR A=8) 



1220 
1230 
1240 
1250 



1260 
1270 
1280 
1290 



X=X+(X>15)-(X<0) :Y=Y+(Y>15)-(Y<0) 

GOSUB 1310 

A=STRIG(0) :IF A GOTO 1280 

A$=INKEY* : IFA$<>" "THENON ( INSTR ( " AaBbCcEeGgPpFf SsLl Dd" , 

A$)+1)/2GOTO1360, 1370, 1380, 1390, 1400, 1460, 1490, 1530, 1600, 16 
70 

IF A$=CHR$(13) GOTO 1330 

GOTO 1190 

S ( X , Y) =C : IFC=0THENM=X :N=Y :L=C :GOSUB1920 :GOTO 1 190 

C(Y)=C:FORI=0TO15:IFS(I,Y)THENS(I,Y)=C:M=I:N=Y:L=C:GOS 
UB1920 

1300 NEXT:GOTO 1190 

1310 LINE(X*8+8,Y*8+8)-(X*8+16,Y*8+16) ,7,B,X0R 
1320 RETURN 

1330 FORI=0TO15:FORJ=0TO15:PSET(16+J, 144+1) ,S(J,I) :NEXT:NEX 

T:GOTO 1190 

1340 LINE(160,8)-(167,15) ,C,BF:RETURN 

1350 PUTSPRITE0, (16,167) ,,SP:COLOR SPRITE* (0) =C$ (SP) :RETURN 

1360 FORI=0TO15:FORJ=0TO7:SWAPS(J,I) ,S(15-J,I) :L=S(J,I) :M=J 

:N=I:GOSUB1920:L=S(15-J,I) :M=15-J :GOSUB1920 :NEXT :NEXT :GOTO 

1190 
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%^omm 



1000- 
1200- 



1190 
1240 



1250-1270 

1280-1350 

1360 
1370 
1380 

1390 

1400-1450 



1460- 
1490- 
1530- 
1600- 
1670- 



1480 
-1520 
1590 
1660 
1960 
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7 * ? - wtarcjw 3 £ *n» 
#ST £tz-h7— ^x>i>t7, 

"/7-f htWf-f-i»l7)37 

-•+■>;*— fed: t/* 7*7 -T h^> 

/■?— A^XC, 1 SHIFT H P— frjy 

L <c** b Hfrf 5 £ "? -f i~ * C ft 
tj^-fo » e fc<'&-pT<*f$l\ ) 

71"*£g(& 7r-f/U*— A£ 

fCO#S-T<7)T\ A7J<»J-+~fr 

D =i v > K TflFJ& $ tltz 7° a ^ 
7A(i,G0SUB 10000 I RETURNI 
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1370 FORI=0TO15:FORJ=0TO7:SWAPS(I,J) ,S(I ,15-J) :L=S(I,J) :M=I 

:N=J:GOSUB1920:L=SU ,15-J) :N=15-J :GQSUB192iZi :NEXT :NEXT :G0T0 

1190 

1380 C=C+(A$="C")-(A*="c")+32 AND 15:G0SUB 1340 :G0T01 190 

1390 SP=SP+(A$="E")-(A$="e")+32 AND 31 :PSET<88,168) ,0 :PRINT 

#1,SP:G0SUB 1350:GOTO1190 

1400 AD=BASE(29)+32*SP:FORI=0TO15:C(I)=ASC(MID$(C$(SP) ,1 + 1, 

D) 

1410 A$=RIGHT$("00000000"+BIN$(VPEEK(AD+D) ,8) 

1420 B$=RIGHT$("00000000"+BIN$(VPEEK(AB+I+16)) ,8) 

1430 FORJ=0TO7:S(J,I)=VAL(MIB$(A$,J+1 ,1) )*C(I) :L=S(J,I) :M=J 

:N=I:GOSUB1920 

1440 S(J+B,I)=VAL(MID$(B*,J+1,1))*C(I) :L=S(J+8,I) :M=J+8:G0S 

UB1920 

1450 NEXT:NEXT:G0T0 1190 

1460 AB=BASE (29) +32*SP :C$=" " :FORI=0TO15 :C$=C$+CHR$ (C ( I ) ) 

1470 A=0 :B=0 :FORJ=0TO7 : A=A+SGN (S ( J , I ) ) *2 A (7-J) :B=B+SGN (S ( J+ 

8,I))*2 A (7-J) :NEXT 

1480 VP0KE(AD+I) ,A :VP0KE (AB+I+16) ,B :NEXT :C$ (SP) =C$ :C0L0R SP 

RITE$(0)=C$:GOTO 1190 

1490 FORI=0TO15:FORJ=0TD15:S(J,I)=C:NEXT:C(I)=C:NEXT 

1500 LINE(8,8)-(136,136) ,C,BF 

1510 FORI=0TO16:LINE(I*8+8,8)-(I*8+8,136) , 15 :LINE (8 ,1*8+8) - 

(136,1*8+8) ,15:NEXT 

1520 GOSUB 1310:GOTO 1190 

1530 SCREEN 0:IF INKEY$<>"" GOTO 1530 ELSE FILES "*.spd" :PR 

INT 

1540 LINEINPUT "Save FILENAME:" ;A* 

IF A$="" THEN SCREENS :SETPA6E1 , 1 :G0T0 1190 

IF INSTR(A$,".")THEN PRINT "JKtooltt 1MW fl! " :G0T0 1540 

0PENA$+" .spc"FOROUTPUTAS#2:FORI=0TO31 :PRINT#2 ,C$ ( I ) :NE 



1550 
1560 
1570 
XT:CL0SE#2 



1580 
23, S 
1590 

1600 

INT 

1610 

1620 

1630 

1640 



SCREENS :SETPAGE1 , 1 :BSAVEA$+" .spd" ,BASE (29) , BASE (29) +10 



GOTO 1190 
SCREEN 0:IF 



INKEYSO"" GOTO 1530 ELSE FILES "*.spd":PR 



LINEINPUT "Load FILENAME: " ;A$ 

IF A$="" THEN SCREENS :SETPAGE1 ,1 :G0T0 1190 

IF INSTR(A$," .")THEN PRJNT a JK**9ltt OttfcUT" fl ! " : GOTO 1610 

0PENA$+" .spc "F0RINPUTAS#2 :FORI=0TO31 :LINEINPUT#2 ,C* ( I ) 

:NEXT:CL0SE#2 

1650 SCREENS :SETPAGE1 , 1 :BL0ADA$+" . spd" ,S:C0L0R SPRITES (0)=C 

$(SP) 

1660 GOTO 1190 

1670 SCREEN 0:FILES:PRINT :PRINT 

1680 PRINT"*** BASICS f*-97 % 'JZ V12 ***" 

1690 INPUT"riIfl7?(0-31)";S:IF S<0 OR S>31 THEN 1910 
INPUT"riR?"?(0-31)" ;T:IF T<S OR T>31 THEN 1910 
INPttT"77<tt-£l"$F* 
INPUT"^7"7fl?(Y/N)";A$:IF A$="n"0RA$="N"G0T0 1910 ELSE 



1700 

1710 
1720 
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IF A$O"Y"ANDA$<>"y ,, THENBEEP:6OTO1720 
1730 SCREENS :SETPAGE1,1 

1748 OPENF$+" .ASC"FOROUTPUTAS#2:C=0:A=10100:B=S 
1750 PRINT#2," 10000 1=0" 

1760 PRINT#2," 10010 A$="+CHR$(34)+CHR$(34)+":F0R J=0 TO 31: 
READ B$:IF B$<>"+CHR$(34)+"*"+CHR$<34)+" THEN A$=A$+CHR$ (VA 
L<"+CHR$(34)+"&H"+CHR$(34)+"+B$)> :NEXT :SPRITE$ ( I ) =A$ : 1 = 1 + 1 : 
GOTO 10010" 

1770 PRINT#2, "10020 DIM C$(31)" 

1780 PRINT#2," 10030 A$="+CHR$<34> +CHRS (34)+" :FOR J=0 TO 15: 
READ B*:IF B$<>"+CHR$(34)+"*"+CHR$(34)+" THEN A$=A$+CHR$ (VA 
L("+CHR$(34)+"&H"+CHR$(34)+"+B$>) :NEXT :C$( I)=A$ : 1=1+1 :GOTO 

10030" 

1790 PRINT#2," 10040 RETURN" 

1800 FORI=0TO(T-S)*2+1 

1810 IF I MOD 2=0 THEN PRINT#2 ,STR$ (A) +" ' SPRITE DATA";STR$ 

(B) :B=B+1:A=A+10 

1820 PRINT#2,STR$(A)+"DATA " ; 

1830 FORJ=0TO15 :PRINT#2 ,RIGHT$ ( "00"+HEX$ ( VPEEK (BASE (29) +S+I 

*16+J)> ,2) ; 

1840 IF.J<15 THEN PRINT#2 , " , " ; 

1850 NEXT:PRINT#2,"":A=A+10:NEXT:PRINT#2,STR$(A)+"DATA *":A 

=A+10 

I860 FORI=0TOT-S:PRINT#2,STR$(A)+"' SPRITE COLOR" ;STR$ ( I ) :A 

=A+10 

1870 PRINT#2,STR$(A)+"DATA " ; 

1880 FORJ=0TO15:PRINT#2,RIGHt$("00"+HEX$(ASC(MIB$(C$(I) ,J+1 

,2))) ,2) ; 

1890 IF J<15 THEN PRINT#2,","; 

1900 NEXT:PRINT#2,"" :A=A+10:NEXT:PRINT#2,STR$(A) + "DATA *" :C 

LOSE:GOTO 1190 

1910 SCREENS :SETPAGEl,l:GOTO 1190 

1920 LINE(M*8+9,N*8+9)-(M*8+15,N*8+15) ,L,BF:RETURN 

1930 IF ERR=53 THEN PRINT"7? iJtr + <3 ! " :RESUME NEXT 

1940 IF ERR=69 THEN PRINT"f * f 3?7T iUvft43l" : RESUME NEXT 

1950 IF ERR=53 THEN PRI NT" 77-1 Jlr^-^7)" *teO! " :A$= INPUT* (1) :SC 

REEN 5 :SETPAGE1,1 .-RESUME 1190 

I960 ON ERROR GOTO 0:END 
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W)tfi iZANMAL.DAT £1^0 ^>? 
HP£<7)ANIMAL.DAT<7)rt^l2;&C7) 

Y$ s N$C7)3 
AoTl^T, Yl N$(Z(^ 



MSXCi Y$(Z *rJLOT!r$ £ T-H^ 
^-^'JilLSTo Y$(7)lifift<0c7)±f 
£\ MN$7t) < S*^<7)^BUs r^*5*> 

oTUSf^ MSXtJIELl^t 
£MN$t;^§tL, r<mitzgz.<n 

- ? l x msxu ^x zhmm 

< ;bltTT 



ANIMAL. DAT©F*g§ 
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»tt 


2 


3 




^■^to 
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ertf* 
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180 REM 
110 REM **•-■>)>" 
120 REM 
130 REM U=5 li 
140 OPEN "an j 
150 FIELD #1 , 
160 IF L0F(1) 
170 SCREEN 1 : 
1S0 REM MU Jb 
190 PRINT 
200 PRINT " £ 
C CtzT <£"&'• 
210 R=l 
220 GET #1 ,R 
230 I=16:H1*= 
240 H2*=LEFT* 
250 IF H2*=" 
1-1 :60T0 240 
260 IF CVI (Y* 
270 PRINT: PR I 

wm-iii ? " 

280 PRINT " ( 
290 IIM*=INKEY 
300 IF IN*="y 
310 IF IN*="n 
320 GOTO 290 
330 PRINT: PR I 



-Tl' 1 

OKI -dat" AS #1 LEN=20 

16 AS NM*,2 AS Y*,2 AS N* 

=0 THEN GOSUB 680 

CLS 

-■f-'j 

"->>»" "3 <J) %$% % feTTM.ftol,-3t.(.. 



;A2f" C &-T- " ;Hl*s" 



NM* 

<H1*,1) 

" THEN H1*=RIGHT*(H1*, 



I) :I = 



)=0 THEN 330 

NT" W fc*$&~"3 tt-. " ;H1* 

y/n) " 

$ 

" THEN R=CVI (Y*) :GOTO 

" THEN R=CVI (Nt) :GOTO 



" *r 



220 
220 



NT" WJ t *%V t*s " ;Hl*s" Ti 



340 PRINT " (y/n) " 

350 IN*=INKEY* 

360 IF IN*="y" THEN 610 

370 IF IN*="n" THEN 390 

380 GOTO 350 

390 A4*=NM* 

400 PRINT .-INPUT 

405 F=0 

410 PRINT: PR I NT 

420 A3*= " " : PR I NT : I NPUT A3* 
430 IF A3f<>"" THEN 480 
440 F=l 



2£z S KL-zT <£"*l>" ;A2* 



";HI* M C &--.T-. " ;A2*",'« C 



450 PRINT: PR I NT 

460 PRINT: INPUT A3* 

470 IF A3*="" THEN BEEP :PRINT :PRINT" ¥ft7. 

"I* ";H1*;" £ ";A2*;" \t m.\,"T'tt &lCT*&."i 

GOTO 405 

480 S1=LOF(1)¥20+1 

490 S2=S1+1 

500 RSET NM*=A3* 

510 LSET Y*=MKI*(S1) 

520 LSET N*=MKI*(S2) 

530 PUT #1 ,R 

540 RSET NM*=A4* 

550 LSET Y*=MK1"*(0) 

560 LSET N*=MKI*(0) 

570 PUT #1 ,S1+F 

580 RSET NM*=A2* 

590 PUT #1 ,S2-F 

600 PRINT: PR I NT" ,";£z £ fi\T zZltz" 

610 PRINT 

620 PRINT " Wmiti ? (y/n)" 

630 IN*=IIMKEY* 

640 IF IN*="n" THEN 190 

650 IF IN*="y" THEN 780 

660 GOTO 630 

670 REM FILE L^MoTU 

680 RESTORE 750 

690 FOR 1=1 TO 3 

700 READ A*,B,C 

710 RSET NM*=A* 

720 LSET Y*=MKI*<B) 

730 LSET N*=MKI*(C) 

740 PUT 1 ,1 :NEXT 

750 DATA tt«,2,3,^t"W,0,0,U%,0,0 

760 RETURN 

770 REM FILE CLOSE 

780 CLOSE #1 

790 PRINT 

800 PRINT "t£ m&,T <r^«i" 

810 END 
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R0M(BASICCD7°P7"7A£&£IT 
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5IWcx#i25*av^f hf=4*#»fc 



C^UT-y-yROM^T^V 7 ^ -f > 
7 -7 x < 7 ROM** 3 fl ^-XWM 

— 7J, MSX-D0S<7)y^iJV-y7° 

ami co^fij 64+p/\'< h<7)> 

-f>RAM^b, Si^A9-*l 

MSX-DOS07fe*§ 
CP/MdVIS-DOS 

MSX-D0S#'j&¥fc 2 #gCOHfi 
(ix i!*CO 77^1 Z(7)>gffl £ % 

i&Wmt <7)7 7 -i )\><n&mi<> 

MSXTf&bftTU&CPlKJ, V s 
1 P 7'*±<7) Z80 o Z tut -f >x;i4± 
CD8080 £ I ^ CPU £&£ L TflF<b 
tltzhVtfio ?IX, Zft^COCPU 
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DOS 



H 
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32K>M h 



f-7*R0M 
7*4 ;*:*4>':**■ 
7i-f *R0M$ 



8 OH 




FFFFH 



jMvRAM 
32K-»*>f h 



jM^RAM 

64K'M Y 



* 4 >ROM 

* ~f ROM 

7 s. A XROM^ 



t"v7;U U "tr— ?4±#|||£gLfcD0S 
t>\ QP/UUUz 

MSX-D0Sc7)7 7>?ya >P— ;u 
(J, CP/Mc7)7t>^v3>p-;U 
tZ_bf£§m,o3: « CP/MTiftf- 

±{Z MSX-D0S& i <7)«t I^SiAP 
$ft£r£l»-};b% fc^'bCP/Mffl 
l:|1t?W:7 7 h7x:P(2*CD 

ZtX\ MSX-DOST*fc^^.* # 
A,£ MSX-DOSfflCDCP >/\'<f 7T 
AS r MSX-Cj^f(i CP/MfflCOfc 

CD£&&LTfF'bftfc£^ 

*fc16£fv hvv>c7)#^D0S 

MS-DOSo -r>-r^4±c7)8086^l^ 
•9l6k'-y hCPUffl(Z s V-f7P7 
7htt^H^L^foc7)/-c MSX-DOS 
(7) , T'-f7^7^-V 7 h\ OS 

i) t* '4 x$ \zy r -i &&&& %> 

^•^c7)^^(ix MS-DOS tmi^o 
^(DtzUbMSX-DOStlMS-DOSCDm 

x\ i—v-fn-tev-yxifeitzX 

mti t* «rffi*(Z 3ES5T' # § ^ tf 
ZCOj;olZ x CP/MH^c7)77'> 
^•>3>3-ibt MS-DOSS^ 
C^^-r X ^ 7 * - V y h %»g-*3-& 

i#oMsx-Dos(i, m&m^nv 

7 h7x7 7 c7)^^g^7 7"f;UC05c 
(7)MSX-D0Sizm^\iHtim^ t' 

*mnUzb<nt>\ ^mn&lTTZ. 
r B*§gMSX-D0S2j^c7)^* o 
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.JMSX-DOSB 

tnTH, B*gMSX-D0S2(JU 
TD0S2 £B&) £f£o tzMZ'ZWi 

Sf*fe^(l'jZ^^:c7)^\ 128 + 
D/** hC7)t'T f ^RAM^#-5MSX2 
£fc(iMSX2+£, 7P7t-fV 
7? K^-f 7 zn(i*^F*3JftT* 
fcyWltT'tl^U 1DD2"f7° 

Sfc * -5)^11^^(7)^1 28+ 
pyf-f K75X >RAM ^2(7) 
MSX2£\ ZftHl&irt5"7«»£ 
lv-j^lt/4 t)Lt+S(7)Vv> 
(7)>-f >RAMA < 64+n/\*-f hflfo 
fcfc& 128+PA-f h<7)RAM£[*l 
HLfcD0S2*i- h 'J 7y^1»J0 o 

D0S2H{i*RAMx-f T.yt^l 

mwht>o zfm, 7r<vi'"* 

7 p -y tf-x -r * 7 CtSiiT" 5 ft 
ft ij (; s RAM (ZfiKt £«ffife/£, 
^:fls<7)®g £-b7J -5 £ 7 7"f ;K7)rt 
#WPfilt L § $ t v<3 ftftsP* 
5tf£\ 7P7t-f^yJ: l J 
b x- ? <7) T 7 £ -tz x&ft&Hi 3 * x 

C3U 7"P^7A<7)gg%^aifi 

c sen r * <7) t-fl!*ij tt^fe 

^^>RAMA < 128+P^'T h<7) 
v v ><7)i§-£\ RAMxV 7. ? gy$n 
»i32*P/\*-f ho "Pfe; *g* 
<7)>-r>RAM£ftoMSX2£ % RAM 
F*tffe7)DOS2a- h U 7V»^ 
5b-t2*U£ ^C7)-a-ltRAM^S^^b 
96*P'\'< h£5|Ufc<£#RAMx 

<>RAM^256+P/n'< h(7)7"- 
^HB-FSOOt^ 128*P/\*-f h RAM 
F%(7)DOS2^- h U -y v^^tT 
ft& RAM-rV*?<7)$5*li288* 

fc*fU RAM|*lil(7)DOS2^-h 
'J v vli, 7J-MJ7 vc7)|*]g|5T' 
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7 7T'£k f£7 Z t if^mttXo 



$X> >-r>RAM#64*P/f-r 
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t ^ 7 mwhws. RAM t-V 7. 
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X-f >RAM^64+P^n*-< h<7)"7 
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Tl^A^lS^StKix D0S2£$B 

id l x ram tV ^ ? <n^m ^H^ 

ft«X^\, *fcD0S2%^^b-f{-^ 

BASICT\ 
OUT 255, 1 

A7J fcSltffrtt fc < tt % 4' £'<7)fl 

s^-wto fc*fi» z<mm 

TXt??i'>lzWM&z*1rtyfrh 

U 7P7t-TVXy^F7l' 

-?#%&. *tzvmx-m& L J: -5 o 

DOS2C7)/\°-y^— vCAoTL^ 
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xA7-f^7 v fLT7la7ik 

fc— h y -y vH[JD0S2£ xV * 
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MSX2(t:'x^RAMlP8K)Sx-<77K^<7(lDDr : feRl) 
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SI 
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ATDIR.HLP 
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%n %-m L < fflr L fcijer K 
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St* fcHftftl* fc© Zft(iDOStf 

»fi^*»*fc*&rr*fctf>©f£ 

*SET37>K^, D0S2£»| 

ECHO = OFF 

PATH=; A:¥UTILS 

SHELL = h:¥command2.com 

TEMP=h:¥ 

REDIR = ON 

UPPER = OFF 

PROMPT = OFF 

TIME=12 

DATE = yy-mm-dd 

HELP=A:¥HELP 

::T; *time=12*£i^©«: n 

*TI M E" £ 1 x ■) £]|iF©Hi£&28[©fiS 
£<*1 2", -3 i 'J B$£lJ£ 1 2B$aPj3. 

SET TIME = 24 
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£**«£ ^^j^ < 24^^itT'R 

^?ti5ftltt, z©(5rfr©j»I 
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wiffl\y-;i/ 



<7K-fXb3-^> 



10 '[ Start Up : 

20 MAXFILES=2'C #l=Screen, #2=Disk 

30 CLEAR 256, &HCFFF SPRINT "Just a moment, pleas 

e . . " 

40 ON STOP GOSUB 770: STOP ON'C Never RETURN, F 

orce Termination 

50 RESTORE 1650:DEFINT A-Z : I=2<HD007 

60 READ A*: IF A*="*" THEN 70 ELSE POKE I,VAL<" 

2<h"+A*) : 1 = 1 + 1 :60T0 60 

70 DEFUSR=?/HD007 : U=USR ( ) 

80 SCREEN 0:KEY OFF: WIDTH 40: COLOR 15, 4, 4: REST 

ORE 

90 FOR 1 = 1 TO 19:READ ALLOCATE 3,I:PRINT A*:N 

EXT 

100 '[ Declare All Variables 3 

110 K*(0)="Tt" :K$<l)="Pp"+CHR*<28) :K*(2)="Uu"+ 

CHR*(30) :K*(3)="L1 ":K*(4)="Ee" 

120 K*(5)="Rr" :K*(6)="Vv"+CHR*(29) :K* (7) ="Dd " + 

CHR*(31) :K*(S)="Ss" :K*(9)="Qq" 

130 K*<1B)=CHR*<24) 'C SELECT Key 

140 SP=9s GOSUB 1060' C Default Speed 

150 DR*="A:" :NM*="" : GOSUB 230 'C File Name 

160 DIM I ,J,K,K*,ER,DS,X,Y,MS*,IO,C$' C Reserve 
Memory hor Variables 

170 DS=<FRE<0)-256) /2:DIM DA(DS):GOSUB 1230'C 
Use Free Memory Al most 

180 ON ERROR GOTO 670' C To Recover Usual Error 

190 GOTO 460 

200 '<< Subroutines >> 

210 'I Switch Drive 3 

220 IF DR*="A:" THEN DR*="Bs" ELSE DR$="A:" 

230 'I Display File Name I 

240 MS*=DR*+LEFT*(NM*+SPACE*<12) ,12) 

250 LOCATE 16,1:PRINT MS*:RETURN 

260 ' C Message ] 

270 LOCATE 10,22: PR I NT MS*;: RETURN 

280 'E Clear Message 3 

290 LOCATE 10,22:PRINT SPC (25) sRETURN 

300 '[ Confirm 3 

310 MSf="*3DiM'f"7::n (y/n) ?" :GOSUB 260 

320 K*=INKEY*:IF K*="" GOTO 320 ELSE IF INSTR( 

"YyNn",K$> = GOTO 320 

330 GOSUB 280: IF K* = "Y" OR K* = "y" THEN RET 

URN 

340 RETURN 340' C Force Return To Main By Error 

Trap 
350 '[ On Function Key 3 
360 K=0: RETURN 560 
370 K=l : RETURN 560 
380 K=2: RETURN 560 
390 K=3:RETURN 560 
400 K=4: RETURN 560 
410 K=5: RETURN 560 
420 K=6:RETURN 560 
430 K=7: RETURN 560 
440 K=8: RETURN 560 
450 K=9: RETURN 560 
460 ' C Main Entry 3 

470 ON KEY GOSUB 360,370,380,390,400,410,420,4 
30,440,450 
480 'I Main Loop ] 

490 FOR 1=1 TO 10:KEY(I) ON:NEXT 
500 IF INKEY* <> "" GOTO 500 'C Flush Key Buf 
f er 



510 
520 
530 
540 
550 

540 
560 
570 
580 
590 



' [ Get Command 3 
K$=INKEY*:IF K* = "" 
K=0 

IF K>10 GOTO 520 
IF INSTR(K*(K> ,K$) 



GOTO 520 



= THEN K=K+1 :GOTO 



' C Execute Command -3 

FOR 1=1 TO 10:KEY(I) OFF:NEXT 

GOSUB 610 

ON K+l GOSUB 890,950,1010,1150,860,920,9 
80 ,1040 ,1080 ,840 ,210 
600 GOSUB 640: GOTO 480 
610 'E Set Function Key D 
620 IF K < OR K > 9 THEN RETURN 
630 LOCATE 4- <K>4> *17 ,6+ (K MOD 5)*2:PRINT "•" : 
RETURN 

640 '[ Reverse Function Key ] 
650 IF K < OR K > 9 THEN RETURN 
660 LOCATE 4- (K>4) *17 ,6+ (K MOD 5)*2:PRINT " ": 
RETURN 

670 ' C Error Trap 1 

680 IF ERL = 340 AND ERR = 3 THEN RESUME 600 
690 IF ERR = 53 OR ERR = 56 THEN ER=1 : RESUME N 
EXT'C File not found 

700 IF ERR = 70 THEN ER=2:RESUME NEXT'C Disk o 
f f 1 ine 

710 IF ERR = 68 THEN ER=3:RESUME NEXT'C Disk W 
rite protected 

720 IF ERR = 66 THEN ER=4:RESUME NEXT'C Disk f 
ul 1 

730 IF ERR = 67 THEN ER=5:RESUME NEXT'C Too ma 
ny files 

740 IF ERR = 56 OR ERR = 62 THEN ER=6 : RESUME N 
EXT'C Bad file name 

750 IF ERR = 55 THEN ER=7:RESUME NEXT'C Input 
past end 

760 IF ERR = 60 OR ERR = 69 THEN ER=8: RESUME N 
EXT'C Disk I/O error 
770 '[ Termination D 
780 ON ERROR GOTO 820 
790 VDP(1)=VDP(1) OR &B0 1000000 
800 COLOR 15,0: KEY ON 
810 FOR 1=1 TO 10:KEY(I) 
820 ON ERROR GOTO 
830 END 
840 '[ Quit 1 
850 GOSUB 300: GOTO 770 
860 ' C CI ear D 

870 GOSUB 300: ERASE DA:DIM DA(DS) 
880 GOSUB 1230:NM*="" :GOTO 230 
890 ' C Test Mode ] 
900 CMD VC 
910 RETURN 
920 ' C Recording ] 
930 CMD VC 1 ,DA 
940 GOTO 1230 
950 'C Play Back 3 
960 CMD VC 2, DA 
970 RETURN 
980 ' C Reverse : 

990 CMD VC 3,DA:CMD VC 2,DA:CMD VC 3, DA 
1000 RETURN 
1010 '[ Speed up 1 

1020 SP=SP+1:IF SP>15 THEN SP=15 
1030 GOTO 1060 
1040 'C Speed down 3 
1050 SP=SP-1:IF SP<0 THEN SP=0 
1060 'C Set speed 1 

1070 CMD VC 4,SP:LOCATE 30 ,3 :PRINTUSING "##" ;S 
P: RETURN 



OFF:NEXT 



186 MSX VOICE RECORDER 



T*":GOTO 13 



1880 'II Save 3 

1090 IF DA (2) =0 THEN MS*~'#»Sol 

30 

1100 10=1 :G0SUB 1400:IF ER THEN GOSUB 12405BOT 

1220 ELSE IF K* = "" GOTO 1220 

1110 GOSUB 230 :ER=0: COPY DA TO DR*+NM*:IF ER T 

HEN GOSUB 1240: GOTO 1220 

1120 I=INT( <DA(2)+l)/2)+2:ERASE DA:DIM DA ( I ) 

1130 COPY DRf+NM* TO DA: IF ER THEN GOSUB 1240: 

GOTO 1180 

1140 COPY DA TO DR$+NM*:IF ER THEM GOSUB 1240: 

GOTO 1220 ELSE 1180 

1150 ' C Load 1 

1160 IO=0:GOSUB 1400: IF ER THEN GOSUB 1240 :GOT 

1220 ELSE IF K* = "" GOTO 1220 

1170 GOSUB 230 

1180 '[ Adjust Dimension 2< Load I 

1190 ERASE DA:DIM DA (DS) :ER=0 :COPY DR$+NM* TO 

DA 

1200 IF ER THEN GOSUB 1240: ERASE DA:DIM DA(DS) 

1210 CMD VC 3, DA: CMD VC 3,DA'C Justify Data Si 

ze 

1220 '[ Pop LOAD or SAVE Button 1 



'77fJb JT |M$tt6" :GOTO 1 
't"-i'7? $ I, »*1T <£"ZV" :G0 
'IfVZil ftfcb Vi" :GOTO 13 

't" f7:9 ft>" \,\-Arv VI" :G 
•77 -ill ft" 0<ttftfi." :GOTO 



1230 LOCATE 


16 


,3:PRINTUS1 


RN 








1240 'C Error 


lessage II 


1250 IF ER = 


1 


THEN 


MS$= ' 


330 








1260 IF ER = 


2 


THEN 


MS*=' 


TO 1330 








1270 IP ER = 


3 


THEN 


MS$=' 


30 








1280 IF ER = 


4 


THEN 


MS*=' 


OTO 1330 








1290 IF ER = 


5 


THEN 


MSf=' 


1330 








1300 IF ER = 



1310 IF ER = 


6 


THEN 


MSf= ' 


7 


THEN 


MS*= ' 



•77-U\,\?)V ifc^J" :GOTO 133 



'Tifrl'PlStiX." :GOTO 1330 
1320 MS$="r'i7? I/O I7-" 
1330 '[ Hit Any Key : 
1340 PLAY"T120L4V15O3C" 

1350 MS*=LEFT*("*"+MS*,30) :X=INT ( (240-LEN <MS$) 
*7)/2) :GOSUB 260 
1360 IF INKEY* <> "" GOTO 1360 
1370 IF INKEY* - "" GOTO 1370 
1380 PLAY"T120L16V15O6G" 
1390 GOTO 280 
1400 '[ Input File Name ] 
1410 COLOR ,1,1 :CLS 

1420 PRINT" <<< *.VCD in "DR$" >»" 
1430 ER=0:FILES DR*+"* .VCD" : IF ER '. 
ELSE ER=0 

1440 PRINT: IF 10 THEN PRINT" > Save' 
T"> Load" ; 

1450 K*="": INPUT" File ";K*:IF K* = "" GOTO 15 
40 ELSE NM*=K* 

1460 IF MID*(K*,2,1> <> ":" GOTO 1480 
1470 PRINT'"/. Sorry, Please input without Dri 
ve Name.": GOTO 1440 
1480 FOR 1=1 TO LEN(NM*) 
1490 C*=MID*(NM*,I ,1) 

1500 IF "a" =< C* AND C* =< "z " THEN MID*(NM 
* , I ) =CHR* ( ASC ( C* > -?<H20 ) 
1510 NEXT 

1520 I=INSTR(NM* ," . ")-l :IF I<0 THEN I=LEN(NM*> 
1 530 NM*=LEFT* ( NM* , I ) + " . VCD " 

1540 COLOR ,4,4:CLS:REST0RE:F0R 1=1 TO 19:READ 
A* : LOCATE 3,1: PR I NT A* : NE X 7 
1550 GOSUB 61.0: GOSUB 1060: GOSUB 1230: RETURN 



1 GOTO 154 



ELSE PR IN 



1560 DATA " FILE NAME [A: 3", 

1570 DATA " USED MEMORY: SPEED:",., 

1580 DATA "I 1 T :;-7-V 7f7l-< [ ] Rta?Zl>" , 

1590 DATA "C J Ps^ft-f C ] V s *" 1> 9x:>"*-f t?-f 

1600 DATA "L" 1 Uu\P9* C 1 Bi2»)7>J" , 

1610 DATA "L 1 L:3r^3=, [ 3 Ssfl5V":>", 

1620 DATA "L 3 EtjtVJ*m*}*m I 1 •.ViWaO" ., , 

1630 DATA " CTRL: T,R,P,V J f4-j" , 

1640 DATA " SELECT: I- * 7l'7 w Wt^" 

1650 DATA 01 ,05,00,11 ,0D,FE,21 ,13 

1660 DATA D0,ED,B0,C9,F1 ,C3,18,D0 

1670 DATA 00,CF,56,CF,43,CD,1C,52 

1680 DATA 7B,FE,05,D2,5A,47,E5,87 

1690 DATA 4F,06,00,21 ,34,D0,09,5E 

1700 DATA 23,56,E1 ,D5,C9,4B,D0,B5 

1710 DATA D0,2C,D1 ,87,D1 ,70,D1 ,3E 

1720 DATA 06, CD, 41 ,01 ,F3,DB,A9,E6 

1730 DATA 02,28,FA,C9,CD,3E,D0,3E 

1740 DATA 0E,D3,A0,DB,A9,E6,02,28 

1750 DATA 0A,DB,A2,87,3E,07,17,D3 

1760 DATA AB,18,F0,FB,C9,F5,CF,2C 

1770 DATA 3A,A5,F6,F5,3E,01 ,32,A5 

1780 DATA F6,CD,A4,5E,F1 ,32,A5,F6 

1790 DATA F1,E5,F5,69,60,2B,56,2B 

1800 DATA 5E,ED,53,B1 ,D0,0A,6F,26 

1810 DATA 00,29,23,22,B3,D0,EB,2A 

1820 DATA Bl ,D0,A7,ED,52, 11 ,06,00 

1830. DATA A7,ED,52,DA,5A,47,EB,2A 

1840 DATA B3, D0„ 09,01 ,04,00,09,F1 

1850 DATA A7,20,04,73,23,72,2B,EB 

I860 DATA El ,C9,00,00, 00,00, AF,CD 

1870 DATA 64,D0,E5,D5,D5,CD,3E,D0 

1880 DATA El ,CD,23,D1 ,E7,28,36,36 

1890 DATA 01 ,3E,0E,D3,A0,DB,A2,47 

1900 DATA DB,A9,E6,02,28,27,DB,A2 

1910 DATA B8,28,F5,18,0B,DB,A9,E6 

1.920 DATA 02,28,1A,DB,A2,B8,28.,09 

1930 DATA 47,87,3E,07,17,D3,AB,18 

1940 DATA 03, 34, 20, E9, 23, 36, 01 ,A7 

1950 DATA ED,52,19,38,E0,FB,E7,28 

I960 DATA 05, 36, 00, 23, 18, F8, El , CD 

1970 DATA 0B,D1 ,E1 ,C9 ,E5 ,CD ,23 ,D1 

1980 DATA E7,28,06,1B,1A,A7,28,F8 

1990 DATA 13,EB,A7,ED,52,EB,E1.73 

2000 DATA 23,72,23,C9,5E,23,56,23 

2010 DATA E5,19,EB,E1 ,C9,3E,01 ,CD 

2020 DATA 64,D0,E5,D5,CD,3E,D0,E1 

2030 DATA CD,23,D1 ,0E,0F, 46,79, D3 

2040 DATA AB,EE,01 ,4F,DB,A9,E6,02 

2050 DATA 23, 24, C3, 55, Dl ,00,00,00 

2060 DATA 00,00,00,00,00,00,00,00 

2070 DATA 00,00,00,00,10,E6,7E ,,A7 

2080 DATA 20, 04, 79, EE, 01 ,4F,23,A7 

2090 DATA ED,52,19,DA,3C,D1 ,FB,E1 

2100 DATA C9,CF,2C,CD,1C,52,E5,7B 

2110 DATA FE,10,D2,5A,47,16,00,21 

2120 DATA 4C,D1 ,19,22, 4A,D1 , El ,C9 

2130 DATA AF,CD,64,D0,E5,EB,CD,0B 

2140 DATA Dl ,4B, 42,79, B0,C4, 99, Dl 

2150 DATA El ,C9,E5,C5,7E,A7,20,1B 

2160 DATA E5,ll ,01 ,00,23,13,0B,79 

2170 DATA 60,20,03, El ,18,13,7E,A7 

2180 DATA 28,F2,E3,C5,4B,42,CD,C2 

2190 DATA Dl ,C1 ,E1 ,23,0B,79,B0,20 

2200 DATA DB,C1,E1 ,E5,C5,5D,54,09 

2210 DATA 2B,CB,38,CB,19,7E,08,1A 

2220 DATA 77 ,08 , 12 ,2B , 13 ,0B ,79 ,B0 

2230 DATA 20 ,F3 ,C1 ,E1 ,C9 ,FF ,* 



J± 



MSX VOICE RECORDER 187 




.. ■■ .- . ■■ 



wertcmi/ 
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(•y-yj)bjnt>5ix) 



10 SCREEN 1,2:WIDTH 32: COLOR 10 , 1 , 1 :KEYO 

FF: CLEAR 256,2/HCFFF 

20 LOCATE 11,10:PRINT "%*.-,>! SoTfl" 

30 DEFINT A-Z:DIM A$ ,8* ,C* ,B , I , J ,K ,P ,S ,X 

,Y 

40 FOR 1=0 TO 4:A*="" :FOR J=0 TO 31 : READ 

C* 
50 A*=A*+CHR*(VAL("&h"+C*) ) :NEXT 
60 B*=MID*(A*,9,8> :MID* (A* ,9) =MID* (A* , 17 
,8) :MID* < A* , 17) =B# : SPRITE* ( I ) =A* :NEXT 
70 I =2<HD007:DEFUSR=?<HD007: RESTORE 600 
80 READ A*:IF A*<>"*" THEN POKE I,VAL<"& 
h"+A*) : 1=1+1 :GOTO 80 

90 U=USR(0) :DS=(FRE(0)-256)/4:DIM DKDS) 
,D2(DS) 
100 COPY "orya.vcd" TO Dl :COPY "ite.vcd" 

TO D2 
110 CLS:P=0:X=10:S=0:G=0 
120 PUTSPRITE 0,(X*8,83) ,15,0 
130 LOCATE 11,9:PRINT "hit any key" 
140 IF INKEY$="" THEN 140:ELSE CLS 
150 Y=RND(1)*3+10 
160 FOR 1=31 TO X+2 STEP -1 
170 LOCATE I,Y:PRINT "• "; 

1B0 IF STRIG(0)=0 THEN P=(P+1) MOD 2: GO 
TO 200 

190 IF STICK (0)=1 THEN P=4 ELSE IF STICK 
<0)=5 THEN P=2 ELSE P=3 
200 PUTSPRITE 0,(X*8,83) ,15,P 
210 NEXT 

220 LOCATE 1 + 1 , Y :PRINT"*" ; 

230 IF <14-P)=Y THEN CMD VC 2,D1:S=S+1 E 
LSE CMD VC 2,D2:G=G+1 
240 IF S=10 THEN S=0:X=X+1 
250 IF G=3 THEN 280 

260 FOR K=0 TO 200 :NEXT :LOCATE I + 1,Y:PRI 
NT " " ; 
270 GOTO 150 

280 LOCATE 12,9:PRINT "GAME OVER" 
290 LOCATE U,13:PRINT "hit any key" 
300 IF INKEY*<>"" THEN 300 
310 IF INKEY*="" THEN 310 ELSE 110 
320 DATA 01 ,03,07,07,07,07,0D,0B,C0,E0 
330 DATA F0,50,50,F0,E0,08,0E,06,07,06 
340 DATA 03,01 ,03, 03,18, D8,D8, 20, A0,D0 
350 DATA A0,C0,01 ,03,07,07,07,0F,0D,0B 
360 DATA C0,E0,F0,50,50,F0,E8,18,06,07 
370 DATA 06,07,07,03,06,0F,D8,D8,20,E0 
380 DATA 70,B0,60,78,00,0E,1F,3F,3F,3A 
390 DATA 3A,2F,00,00,00,80,A0,E0,E0,40 
400 DATA 30,6F,1F,36,39,16,0C,1E,C0,80 
410 DATA C0,60,F0,7A,1E,06,00,0E,1F,3F 
420 DATA 3A,3A,3F,2F,00,00,00,80,A0,E0 
430 DATA E0,40,30,6F,1C,33,3B,17,03,0F 
440 DATA CI ,FF,FF,E0,80,00,00,80,00,1C 
450 DATA 3E,75,75,7F,7F,5E,00,04,04,0C 
460 DATA 5C,B8,F0,60,61 ,DF ,37 ,67 ,77 ,2E 
470 DATA 07,0F,C0,C0,80,00,00,00,00,80 
480 DATA 06,0E,0A,18,05,05,0A,2A,01 ,1D 
490 DATA 41 ,2A, 15, ID, 04, 26,06,02,07, 02 



500 DATA 09,09,01 ,02, 

510 DATA 09,01, 08, 0E, 

520 DATA 01,18,02,07, 

530 DATA 04,01 ,3F,22, 

540 DATA 03,06,06,06, 

550 DATA 05,18,14,01, 

560 DATA 40,30,06,11, 

570 DATA 08,01 ,0B, 06, 

580 ' 

590 ' DD717 ^ rjrvsr 

+L>" f " 7- 

600 DATA 01,05,00,11, 

610 DATA D0,ED,B0,C9 

620 DATA 00,CF,56,CF, 

630 DATA 7B,FE,05,D 

640 DATA 4F, 06, 00, 21 , 

650 DATA 23,56,E1,D5, 

660 DATA D0,2C,D1 ,87, 

670 DATA 06, CD, 41 ,01 , 

680 DATA 02,28,FA,C9, 

690 DATA 0E,D3,A0,DB, 

700 DATA 0A,DB,A2,87, 

710 DATA AB,18,F0,FB, 

720 DATA 3A,A5,F6,F5, 

730 DATA F6,CD,A4,5E, 

740 DATA F1,E5,F5,69, 

750 DATA 5E,ED,53,B1 , 

760 DATA 00,29,23,22, 

770 DATA Bl ,D0,A7,ED, 

780 DATA A7, ED ,52, DA, 

790 DATA B3,D0,09,01, 

800 DATA A7, 20, 04, 73, 

810 DATA El ,C9,00,00, 

820 DATA 64,D0,E5,D5, 

830 DATA El ,CD,23,D1 , 

840 DATA 01,3E,0E,D3, 

850 DATA DB,A9,E6,0 

860 DATA B8,28,F5,18, 

B70 DATA 02, 28,1 A, DB, 

880 DATA 47, 87, 3E, 07, 

890 DATA 03, 34, 20, E9, 

900 DATA ED, 52, 19, 38, 

910 DATA 05,36,00,23, 

920 DATA 0B,D1,E1,C9, 

930 DATA E7, 28, 06, IB, 

940 DATA 13,EB,A7,ED, 

950 DATA 23, 72, 23, C9, 

960 DATA E5,19,E8,E1, 

970 DATA 64,D0,E5,D5, 

980 DATA CD,23,D1 ,0E, 

990 DATA AB,EE,01,4F, 
1000 DATA 28, 24, C3, 55 

1010 DATA 00,00,00,00 
1020 DATA 00,00,00,00 

1030 DATA 20, 04, 79, EE 

1040 DATA ED, 52, 19, DA 

1050 DATA C9,CF,2C,CD 

1060 DATA FE,10,D2,5A 

1070 DATA 4C,D1 ,19,^ 

1080 DATA AF,CD,64,D0 

1090 DATA D 1,46,42,79 

1100 DATA El ,C9,E5,C5 

1110 DATA E5,ll ,01 ,00 

1120 DATA 60, 20, 03, El 

1130 DATA 28,F2,E3,C5 

1140 DATA Dl ,C1 ,E1 ,23 

1150 DATA 06, CI ,E1 ,E5 

1160 DATA 2B,Ce,38,C8,_ 

1170 DATA 77,08,12,26,13,06 

1180 DATA 20,F3,C1 ,E1 ,C9,FF 



10, 17, 03, 02, 0A, 03 
06,17,06,03,21 ,29 
06,03,03,14,03,21 
09,01 ,09,06,02,36 
08,04,03,06,06,04 
0C,02,05,0A,02,24 
0A, 23, 35, 03, 01 ,21 
01 ,18 

7°q7" : 7£ j x"-? v n 

0D,FE,21 ,13 
,F1 ,C3,18,D0 
,43, CD, 1C, 52 
,5A,47,E5,87 
,34,D0,09,5E 
,C9,4D,D0,D5 
,D1 ,70,D1 ,3E 
.F3,DB,A9,E6 

CD,3E,D0,3E 

A9,E6,02,28 
_I7I7 _1 7 _n' 



3E, (87,17,03 

C9,F5,CF,2C 

3E,01 ,32,A5 

Fl ,32,A5,F6 

60,26,56,26 

D0,0A,6F,26 

D3,D0,E6,2A 

52,11 ,06,00 

5A,47,E6,2A 

04, 00, 09, Fl 

23, 72, 26, E6 

00, 00, AF, CD 

,D5,CD,3E,D0 

,E7,28,36,36 

,A0,D6,A2,47 

.28,27,D6,A2 

0D,D6,A9,E6 

A2, 68, 28, 09 



A2, 68, ^.o,<o7 
17, 03, A6, 18 
23,36,01 ,A7 

n no 



E0,F6,E7,28 

18,F8,E1 ,CD 

E5,CD,23,D1 

1A,A7,28,F8 

52,E6,E1 ,73 

,5E,23,56,23 

( C9,3E,01 ,CD 

,CD,3E,D0,E1 

0F, 46,79,03 

D6,A9,E6,02 

,D1 ,00,00,00 
,00,00 ,00 ,00 



,1C,52,E5,76 
,47,16,00,21 
,4A,D1 ,E1 ,C9 
,E5,E6,CD,0B 
,60,C4,99,D1 
,7E,A7,20,1B 
,23,13,06,79 
,18,13,7E,A7 
,46, 42, CD, C2 
,06,79,60,20 
,C5, 50,54,09 
19,7E,08,1A 
■ 79,60 
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r 



D-E-E-P LIST 



10 SCREEN 1,2,0:COLOR 15,1,1:WIDTH 32:KEY OFF 

:CLEAR 1000 ,?<HBFFF rDEFINT A-Z 

20 ON STOP BOSUB 1710 :DEF USR=8<HC007 

30 R=RND (-TIME) : LOCATE 1 1 , 10 : PR I NT"*.:* I., io"W" 

40 DIM M*<4,8) ,L(19,19) ,XX<3) ,YY(3) 

50 FOR 1=0 TO 119:READ A*:VPOKE 128*8+1 ,VAL ( " 

&h"+A*) :NEXT 

60 FOR 1=0 TO 79:READ A*:VPOKE 97*8+1 ,VAL < "8<h 

"+A*) :NEXT 

70 FOR 1=0 TO 4:F0R J=0 TO B:READ M*(I,J):NEX 

T J, I 

80 FOR 1=0 TO 3:READ XX ( I ) , YY ( I ) :NEXT : I=S<HC00 

7 

90 READ A*:IF A*<>"*" THEN POKE I ,VAL < "?<H"+A* 

) : 1=1+1 :GOTO 98 

100 U=USR<128) :U=USR<255) :STOP ON 

110 ' 

120 NO=0:FL=1 :FU=100 :BO=10 :BA=100 :D=0 :TE=0 :TL 

= 1 :SC=0:GL=0 

130 ' 

140 FOR 1=0 TO. 23:' OIL 

150 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

150 ELSE L(V,W>=1 :NEXT 
160 FOR 1=0 TO 4' BOMB 
170 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

170 ELSE L(V,W)=2:NEXT 
180 FOR 1=0 TO 4:' BATTERY 
190 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

190 ELSE L(V,W)=3:NEXT 
200 FOR 1=0 TO 9+RND(l)*6:' GOLD 
210 V=RND(1)*20:W=RND<1)*20:IF L(V,W)<>0 THEN 

210 ELSE L(V,W)=7:NEXT 
220 FOR 1=0 TO 15+FL*2:' ENEMY 
230 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

230 ELSE L(V,W)=4:NEXT 
240 FOR 1=0 TO RND<1)*5:' TRAP 1 
250 V=RND(1)*20:W=RND(1)*20:IF L(V,W><>0 THEN 

250 ELSE L(V,W)=8:NEXT 
260 FOR 1=0 TO RND(1)*5:' TRAP 2 
270 V=RND < 1 ) *20 : W=RND ( 1 ) *20 : 1 F L < V , W ) <>0 THEN 

270 ELSE L(V,W)=9:NEXT 
280 IF RND(1)>.33 THEN 300 
290 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

290 ELSE L(V,W)=10:' TRAP 3 
300 V=RND(1)*20:W=RND(1)*20:IF L(V,W)<>0 THEN 

300 ELSE L(V,W)=6:' L.UP 
310 V=RND(1)*20:W=RND(1)*20:IF L(V,W><>0 THEN 

310 ELSE L(V,W)=5:' EXIT 
320 X=RND ( 1 ) *20 : Y=RND ( 1 ) *20 : 1 F L ( X , Y X >0 THEN 

320 
330 ' 

340 CLS:LOCATE 5,4:PRINT STRING* ( 12 , 128) 
350 FOR 1=5 TO 13:L0CATE 5,I:PRINT CHR*(128); 
SPC(10) ;CHR*<128) :NEXT 

360 LOCATE 5,14:PRINT STRING* ( 12 , 128) 
370 GOSUB 600 -.GOSUB 580:U=USR(4) 

380 ' MAIN 

390 IF INKEYSO"" THEN 390 

4i2iiZi A=ASC(INKEY*+" "):IF A<28 OR A>30 THEN 40 



410 ON (A-27) GOSUB 430,460,490 

420 GOTO 390 

430 N0=4:G0SUB 580 :N0=3 :GOSUB 580 :N0=2 :GOSUB 

580 :NO=0: GOSUB 580 



440 D=(D+1) MOD 4 

450 RETURN 

460 N0=2:G0SUB 580 :N0=3 :GOSUB 580 :N0=4 :GOSUB 

580 :NO=0: GOSUB 580 

470 D=D-l*SGN(D)+3-3*SGN(D) 

480 RETURN 

490 NO=l : GOSUB 580:FOR 1=0 TO 150 :NEXT :NO=0 :G 

OSUB 580 

500 X=X+XX(D):IF X<0 THEN X=19 ELSE IF X>19 T 

HEN X=0 

510 Y=Y+YY(D):IF Y<0 THEN Y=19 ELSE IF Y>19 T 

HEN Y=0 

520 ON L(X,Y> GOSUB 700,730,760,790,1090,1210 

,1240 , 1280 , 1330 , 1420 

530 GOTO 550 

540 L(X,Y)=0 

550 FU=FU-1 :SC=SC+1 :GOSUB 650: IF FU<=0 THEN 1 

140 

560 RETURN 

570 ' 

580 FOR 1=0 TO 8:L0CATE 6,5+1 :PRINT M*(NO,I): 

NEXT 

590 RETURN 

600 LOCATE 7,2:PRINTUSING "FLOP Btt#" ;FL 

610 LOCATE 19,12:PRINTUSING "T.LV ##" ;TL 

620 LOCATE 19 , 14 :PRINTUSING "GOLD ####" ;GL 

630 LOCATE 19 ,8 :PRINTUSING "BOMB ##" ;BO 

640 LOCATE 19 ,6 :PRINTUSING "BATT ###" ;BA 

650 LOCATE 19 ,4 :PRINTUSING "FUEL ####" -FU 

660 DX=ABS(V-X) :DY=ABS(W-Y) 

670 DI=DX*- (DX<1 1 ) - (20-DX ) * (DX>10) +DY*- (DY< 1 1 

>-<20-DY)*<DY>10) 

680 LOCATE 19 , 10 :PRINTUSING "DIST ##" ;DI 

690 RETURN 

700 LOCATE 10,12:PRINT "cd" :LOCATE 7,17:PRINT 

"OIL =J JKWt£! !" 
710 U=USR(3) :FU=FU+21 : GOSUB 1120: LOCATE 7,17: 
PRINT SPC<12) 
720 RETURN 540 
730 LOCATE 10,12:PRINT "ab" : LOCATE 7, 17 -.PRINT 

"BOMB =} dntt£! ! " 
740 U=USR(3) :B0=B0+3:G0SUB 1120:LOCATE 7,17:P 
RINT SPC(13) :GOSUB 630 
750 RETURN 540 
760 LOCATE 10,12:PRINT "e-f":LOCATE 7,17:PRINT 

"BATTERY =? 3tOtt£ ! ! " 
770 U=USR<3) :BA= 100: GOSUB 11 20: LOCATE 7, 17: PR 
INT SPC(16) : GOSUB 640 
780 RETURN 540 

790 LOCATE 10,11 :PRINT "gh"+CHR* (31 > +CHR* (29) 
+CHR*(29)+"ij" 

800 LOCATE 7,17:PRINT "T? IC V Sw£ ! ! " :GOSUB 66 


810 GOSUB 11 20: GOSUB 1 120 :HP=RND ( 1 ) * ( 16+FL*4) 
+FL*5 

820 IF BA+BO=0 THEN 880 

830 LOCATE 4,17:PRINT "CT3 THUNDER CB] BOMB" 
840 IF IIMKEY*<>"" THEN 840 
850 A*=INKEY*:IF A*="" THEN 850 
860 ON INSTRC'TtBb" ,A*) GOTO 920,920,970,970 
870 GOTO 840 

880 U=USR(2):F0R 1=0 TO 20: COLOR ,3:C0L0R ,1: 
NEXT 

890 GOSUB 640:DA=HP:FU=FU-HP 

900 LOCATE 7,19:PRINTUSING "£l»*0| l j T" ### Ul 9" 
*-V~ " ;DA 

910 GOSUB 650: IF FU<=0 THEN 1140 ELSE 1040 
920 IF BA=0 THEN 1000 ELSE U=USR(0):FOR 1=0 T 
20:COLOR ,10:COLOR ,1:NEXT 

930 BA=BA-10:GOSUB 640 :DA=RND ( 1 ) * (30+TL*10) + < 
TL-1)*10 

940 LOCATE 7 , 19 .-PRINTUSING "T3 IS ### (D T' S-V" 
" 5 DA 

950 HP=HP-DA:IF HP<=0. THEN 1040 
960 GOSUB 1120:LOCATE 7,19:PRINT SPC ( 17) :GOTO 



>a— h •7'a^7A'?-f *7>V 189 



r~ 



1000 

970 IF BO=0 THEN 1000 ELSE U=USR ( 1 ) :FOR 1=0 T 

2iZi:C0L0R ,4:C0L0R ,1:NEXT 

980 B0=B0-1 :GOSUB 630:DA=60 

990 GOTO 940 

1000 U=USR(2):F0R 1=0 TO 20: COLOR ,8:C0L0R ,1 

:NEXT 

1010 DA=RND(1)*(20+5*FL) :LOCATE 7 , 19 :PRINTUSI 

NG "### ?" J-V 5tf£" ;DA 

1020 GOSUB 1120:LOCATE 7,19:PRINT SRC (14) 

1030 FU=FU-DA: GOSUB 650: IF FU<=0 THEN 1140 EL 

SE 840 

1040 LOCATE 10,11 : PR I NT " "+CHR* (31 ) +CHR* (29 

)+CHR*(29)+" " 

1050 LOCATE 7,21:PRINT "T3 1 £fiV£'. ! " :TE-T£+8* 

FL 

1060 GOSUB 1120:GOSUB 1120:LOCATE 4,17:PRINT 

SPC (21 ): LOCATE 7,21:PRINT SPC ( 1 1 ) 

1070 LOCATE 7,19:PRINT SPC (21) 

1080 RETURN 540 

1090 LOCATE 10,11 :PRINT "**": LOCATE 9,12:PRIN 

T "«, *.-" : LOCATE 10,13:PRINT "¥¥" 

1100 LOCATE 7,17:PRINT "ftlXz" lb 3 Jfltt£ ! ! " :U=USR 

(128) 

1110 FL=FL+1 :BA=100:ERASE L:DIM L < 19 , 19) :RETU 

RN 140 

1120 FOR 1=0 TO 1600:NEXT 

1130 RETURN 

1140 LOCATE 8,6:PRINT "EMPTY !" :U=USR ( 128) :U=U 

SR(7):G0SUB 1120:GOSUB 1120 

1150 LOCATE 5,19:PRINTUSING "Your SP:#### GP 

:####" ;SC+FL*20+TE ,GL 

1160 GOSUB 1120: LOCATE 7,21 -.PRINT "CANY KEYD 

REPLAY" 

1170 IF INKEY*<>"" THEN 1170 

1180 IF INKEYf-="" THEN 1180 

1190 U=USR(128) :CLS:LOCATE 1 1 , 10 :PRINT"-*?I, f.-, 

Ttt" 

1200 RETURN 120 

1210 LOCATE 10,12:PRINT "«,*,■" : LOCATE 7,17:PRIN 

T " L . UP =3 dni-ffc ! ! " 

1220 U=USR(3) :TL=TL+1 :GOSUB 610:GOSUB 1120:LO 

CATE 7,17:PRINT SPC (13) 

1230 RETURN 540 

1 240 GP= ( RND ( 1 ) *FL*30 ) +FL : GL=GL+GP 

1250 LOCATE 10,12:PRINT "**": LOCATE 7,17:PRIN 

TUSING "###GOLD =9 3>-ll1£ ! ! " ; GP 

1 260 U=USR < 3 ) : GOSUB 620 : GOSUB 1120: LOCATE 7 , 1 

7:PRINT SPC (16) 

1270 RETURN 540 

1280 GOSUB 1430:DA=RNL(1)*31 

1290 U=USR(2):F0R 1=0 TO 20: COLOR ,8:C0L0R ,1 

:NEXT 

1300 LOCATE 7,17:PRINTUSING "## 9" ;>-l>" :.ll£" ;D 

A 

1310 GOSUB 1120:LOCATE 7,17:PRINT SPC (13) 

1320 RETURN 540 

1330 GOSUB 1430: FOR K=0 TO 3 

1340 N0=4: COLOR ,14:G0SUB 580 :N0=3 : COLOR ,1:G 

OSUB 580 

1350 N0=2: COLOR ,15:G0SUB 580 :NO=0 : COLOR ,1:G 

OSUB 580: NEXT 

1360 FOR 1=0 TO 8:L0CATE 6,5+I:PRINT SPC(10): 

FOR J=0 TO 70:NEXT J, I 

1370 NO=0: GOSUB 580 

1380 X=RND(1)*20:Y=RND(1)*20:IF L ( X , Y ) <>0 THE 

N 1380 

1390 GOSUB 650: LOCATE 7,17:PRINT "9-7° tfe ! " 

1400 GOSUB 1120: LOCATE 7,17:PRINT SPC (8) 

1410 RETURN 540 

1420 RETURN 540 

1430 LOCATE 10,12:PRINT "ft" : LOCATE 7,17:PRIN 

T "\-=7»)l" ! ! ! " 

1440 GOSUB 1120: GOSUB 1 120 -.LOCATE 7,17:PRINT 

SPC (8) 



1450 RETURN 

1460 ' 

1470 DATA -f-f ,-f-f ,-f-f ,F-f ,-f-F ,f-f ,F-F ,-f-f 

,00,00,00 ,00 

1480 DATA 00, 00, 00, 00, 00, 00, 00, ff 

,01 ,01 ,01 ,01 

1490 DATA 01 ,01 ,01 ,01 ,01 ,01 ,01 , f-f 

,80,80,80,80 

1500 DATA 80, 80, 80, 80, 80, 80, 80, -f-f 

,08,04,02,01 

1510 DATA 01,02,04,08,10,20,40,80 

,80,80,80,80 

1520 DATA 01,01,01,01,01,01,01,01 

,01 ,01 ,01, ff 

1530 DATA ff ,80, 80, 80, 80, 80, 80, -F-f 

,11,21,41,81 

1540 DATA 81,41,21,11,09,05,03,01 

1550 DATA 00,3-f ,40,80,80,40,3-f ,00 

,12,19,e5,03 

1560 DATA 3-f ,50 ,88 ,88 ,88 ,88 ,50 ,3-f 

,01 ,01 ,02,-fc 

1570 DATA f-f ,c0,a0, 9-f ,90, 50,30, 1-f 

,01 ,01 ,01 ,ff 

1580 DATA 03,04,08,18,06,29,6c ,26 

,e0,94,36,64 

1590 DATA 5b, 54, 4b, 44, lb, 28, 70, 70 

,d8, lc ,0e,0e 



1600 DATA 


" 




","♦* 


ii > i i ♦* 
1610 DATA 
*£" ," 
1620 DATA 


"ziOti 

"* 


x x x x i-i i 'i " 
JiSiV 1 " x i 

1>" , "i 


•i ■ Hi 
1630 DATA 


-> -i ■-.< j 
jii 


xi it' *•■•'!■ i 
oW ,"iO (1 


1640 DATA 


" 


*;" 


","¥¥♦* 


i i i*£ 
1650 DATA " 


iiOi, 


iiii '/*• 
fcS" ," ii 


1660 DATA 


« 




" , " ►*>*; 


1670 DATA 


X 


■ : > X 


'*,' <bo x it; «>" 

i i t; i 


1680 DATA 


" 






1690 DATA 


"Ou 




5. 5. i •:■ ■:■ 'i 

" " 5 " 



,f f ,00,00,00 
,ff ,01 ,01 ,01 
,f f ,80,80,80 

,80,40,20,10 
,80,80,80 ,80 

,ff ,01 ,01 ,01 

,01 ,03,05,09 

,03, e5, 19,12 
,fc,02,01 ,01 
,f8,04,02,ff 
,c0,e0,f 0,f 8 
,da,3a,f2,e2 



"Ou 



*£•=. 



"**Jd 



Hi * 



1700 DATA 0,-1,1,0,0,1,-1,0 

1710 STOP OFF: RETURN 1720 

1720 U=USR(128) :U=USR(254) :END 

1730 DATA FE,02,C0,23,23,7E,FE,FF,CC,20 

1740 DATA C0,FE,FE,CC,39,C0,FE,80,CC,57 

1750 DATA C0,DC,8E,C0,C9,21 ,9F,FD,11 ,51 

1760 DATA C0,01 ,05,00,ED,B0,F3,3E,C3,32 

1770 DATA 9F,FD,21 ,47,C0,22,A0,FD,FB,C9 

1780 DATA F3,21 ,51 ,C0,11 ,9F,FD,01 ,05,00 

1790 DATA ED,B0,FB,C9,F3,D9,08,CD,CD,C0 

1800 DATA D9,08,FB,C9,00,00,00,00,00,00 

1810 DATA DD,E5,CD,90,00,DD,E1 ,21 ,E0,C3 

1820 DATA 11 ,B3,C3,-AF,2B,77,E5,B7,ED,52 

1830 DATA El ,20 ,F7 ,32 ,FA ,C3 ,32 ,FB ,C3 ,FD 

1840 DATA 21 ,E0,C3,21 ,E6,C3,11 ,01 ,00,06 

1850 DATA 03,FD,75,00,FD,74,01 ,19,FD,23 

I860 DATA FD,23,10,F3,C9,87,5F,16,00,21 

1870 DATA FE,C3,19,7E,23,66,6F,46,04,FD 

1880 DATA 21 ,A5,C3,11 ,0E,00,FD,19,10,FC 

1890 DATA 23,7E,E6,03,FD,77,00,FD,36,01 

1900 DATA 01 ,FD,36,07,01 ,23 ,7E ,FD ,77 ,0C 

1910 DATA 23,7E,FD,77,0B,AF,FD,77,0D,23 

1920 DATA 7E,FE,FF,C8,47,18,CF,C9,3A,FB 

1930 DATA C3,B7,C0,32,FA,C3,06,03,DD,21 

1940 DATA DD,C3,C5,11,F2,FF,DD,19,DD,7E 

1950 DATA 01 , IF, 30,43, DD, 35,07, DD,7E, 07 

I960 DATA A7,20,3A,DD,7E,00,E6,03,21 ,FB 

1970 DATA C0,C3,E5,C2,03,C1 ,0E,C1 ,1B,C1 



190 
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SHORT PROGRAM ISLAND 



1980 
1990 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



2A,C1 ,3A,FA 
01 ,18,2A,3A 
17,17,F6,02 
IF, IF, 38, 0B 
0E,C1 ,10, AE 
DD, 77, 00, 18 
00,E6,BF,DD 
C0,28,36,FE 
E6,3F,DD,77 
C6,08,DD,CB 
C2,CB,63,28 
CD,DD,C2,DD 
DD,5E,05,3C 
DD,6E,0C,E5 
F5,DD,CB,02 
3E,0B,CD,DD 
DD,C2,DD,5E 
FE, 60, 28, 00 
C2,19,7E,DD 
5F,DD,7E,00 
23,5E,DD,73 
DD,CB,01 ,7E 
07, DD, 77, 06 
77, 07, 23, DD 
2A,C1 ,1F,FE 
00, E6, 03, 87 
CD,DD,C2,1E 
DD,36,01 ,00 
21 ,1F,C2,C3 
6A,C2,78,C2 
81,C2,81 ,C2 
C5,C2,D3,C2 
D3,C2,D3,C2 
BF,F6,80,5F 
D3,C2,E1 ,23 
00,E6,03,C6 
C2,E1 ,23,7E 
77,04,C3,D3 
05,C3,D3,C2 
C3,D3,C2,C5 
19, 10, FD, CI 

00,16,00,19 

28,15,18,04 
02,DD,77,0C 
C3,43,C1 ,FD 
D3,C2,E1 ,23 
CD,DD,C2,C3 
DD,75,0C,C3 
CC,93,00,C9 
23,66,6F,E9 
3C,0B,9B,0A 
6B,08,F2,07 
4E,06,F4,05 
BA, 04, 76, 04 
8A, 03, 57, 03 
A7,02,81 ,02 
FD,01 ,E0,01 
7D,01 ,68,01 
ID, 01 ,0D,01 
D6,00,CA,00 
A0, 00, 97, 00 
78,00,71 ,00 
5A, 00, 55, 00 
43,00,40,00 
32,00,30,00 
26,00,24,00 
1C, 00, IB, 00 
15,00,14,00 

10,00,0F,00 
00,00,00,00 
00,00,00,00 
00,00,00,00 
00,00,00,00 
00,00,00,00 
00,00,00,00 



,0B,32,FA,C3,DD,7E 
,77,00,DD,7E,00,E6 
,80,20,32,DD,7E,00 
,00,DD,5E,02,E6,03 
.01 .76. 20. 03. CD. DD 



,C3,1F,38,25,17,F6 
,FA,C3,1F,1F,38,19 
1 r 1 n ia r - 



18,1D,3A 
17,17,17 
C9,DD,7E 
0B,32,FA 



, .JO ,17 

,FA,C3,1F 
,F6,04,18 
,00,F6,C0 
,C3,DD,7E 
~~,00,E6 

"7C i7i(7i 



00, DD 
01 ,76 
16,DD 
5E,04 
CD , DD 
7E,17 
66,28 
C2,DD 
05, 3C 
87, 5F 



_,_,03 
>0,03,CD,DD 
,5E,03,3E,0B 
,3C,CD,DD,C2 
,C2,DD,66,0B 
,DA,F3,C1 ,1F 
,16,DD,5E,03 
,5E,04,3C,CD 
,CD,DD,C2,F1 
,16,00,21 ,EF 



,4E,0D,81 ,DD,77,09 
,E6,03,87,CD,DD,C2 
,0A,3C,CD,DD,C2,E1 
20,0A,23,7E,DD,77 
8,06,DD,7E,06,DD 
'4.0B.DD.75.0C.C3 



18,06, LIU , /t , Wb , LILI 

" 0B,DD,75,0C,C3 
■ ,C2,17,C2,DD,7E 
I,00,CD,DD,C2,3C 
3,3E,07,CD,DD,C2 
. ,C3,2A,C1 ,E6,1F 
5 .C2.47.C2.57,C2 



74 

FF 

IE 

B8 

El 

,E5 

81 

8A,C2,C5,C2,C5,C2 

D3,C2,D3,C2,D3,C2 
,81 ,C2,E1 ,23,7E,E6 
,3E,07,CD,DD,C2,C3 
,5E,DD,73,02,DD,7E 

08,CD,DD,C2,C3,D3 

DD,77,03,23,7E,DD 

C2,E1 ,23,7E,DD,77 
,23,7E,DD,77,0D 
,DC,C3,11 ,01 ,00 
,FD,E1 ,FD,23,FD,5E 
,7E,B7,28,06,35,3D 
,FD,7E,01 ,77,FD,7E 
,FD,7E,03,DD,77,0B 
,E5,E1 ,23, 23, 23, C3 
,5E,DD,73,08,3E,06 
,D3,C2,23,DD,74,0B 
,43, CI ,DD,CB,00,76 
,87,5F,16,00,19,7E 
,5D,0D,9C,0C,E7,0B 
,02,0A,73,09,EB,08 
, 80, 07, 14, 07, AF, 06 
,9E,05,4E,05,01 ,05 
,36,04,F9,03,C0,03 

T*7 fhD c/\ (Tin r^r- t*f-i 



27, 03, FA, 02, CF, 02 
5D,02,3B,02,1B,02 
C5,01 ,AC,01 ,94,01 
53,01 ,40,01 ,2E,01 
FE,00,F0,00,E3,00 
,00,B4,00,AA ,00 
.00.87.00.7F.00 



IY,Wltf 

2D, 00, 2A, 00, 28, 00 
22, 00, 20, 00, IE, 00 

,19,00,18,00,16,00 
,13,00,12,00,11 ,00 
, 0E , 00 , 00 , 00 , 00 , 00 
,00 ,00 ,00 ,00 ,00 ,00 
, 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 
, 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 



2730 


DATA 


2740 


DATA 


2750 


DATA 


2760 


DATA 


2770 


DATA 


2780 


DATA 


2790 


DATA 


2800 


DATA 


2810 


DATA 


2820 


DATA 


2830 


DATA 


2840 


DATA 


2850 


DATA 


2860 


DATA 


2870 


DATA 


2880 


DATA 


2890 


DATA 


2900 


DATA 


2910 


DATA 


2920 


DATA 


2930 


DATA 


2940 


DATA 


2950 


DATA 


2960 


DATA 


2970 


DATA 


2980 


DATA 


2990 


DATA 


3000 


DATA 


3010 


DATA 


3020 


DATA 


3030 


DATA 


3040 


DATA 



00 
00 

C4 
C4 
FF 
FF 

00 

18 
60 
C4 
E3 
18 
E2 
02 
18 
04 
3F 
28 
6E 
0A 
IF 
15 
21 
60 
28 
6E 
0A 
E9 
27 
27 
3C 
78 



,00,00 
,00,00 

,1D,C4 
,02,02 
,02,02 

,00,00 
,00,03 

,E1,10 
,03, EC 
,EC,15 
,00,E2 
,1A,1E 
,30,11 
,EC,0F 
,60,03 
,EC,1F 
,02,48 
,21 ,0A 
,1F,28 
,60, 6E 
,08,15 
,08,21 
,08,16 
, 50 , E9 
,15, 0A 
,13,28 
,60,6E 

,01 ,00 

,3C,2A 
,78,FF 
,2A,3C 
,FF,00 



,00 ,00,00 
,00,00,0E 

,22,C4,0E 
,34,C4,FF 
,61 ,C4,FF 
,96,C4,01 
,C5,01 ,01 
,E3,00,E2 
, IE, 10, 03 
,60,3C,FF 
,50, ID, EC 
,FF,E0,18 
,EC,0A,60 
,60, 02, EC 
, EC, IB, 60 
,60,05,FF 
,04, El ,0A 
,60,6E,22 
,21 ,0A,60 
,E9,00,01 
,08,21 ,08 
,08,13,08 
,08,22,08 
,01 ,00,98 
,60,6E,16 
,15,0A,60 
,E9,00,01 
,DE,C4,FF 
,3C,25,3C 
,E1 ,08,E8 
,25,3C,28 



,00,00 

,C4,13 
,C4,0E 
,02,02 

,02,01 

,01 ,DC 
,14,C5 

,00,31 

,E9,00 
,E0,18 
,1F,13 
,E1,10 
,02, EC 
,13,60 
,03, EC 
,E1 ,0C 
,FF,E1 
,28,21 
,6E,24 
,98, C4 
,16,08 
,1F,08 
,18,08 
,C4,E1 
,28,15 
,6E,18 
,DE,C4 
,E1 ,0D 
,28,3C 
,01,2C 
,3C,23 



,00 ,00 

,C4,18 
,C4,2B 
,4F,C4 
,8B,C4 
,C4,FF 
,FF,E0 
,EC,18 
,03, 3D 
,E1,10 
,02, EC 
,E3,00 
,0C,60 
,02, EC 
,1D,60 
,3C,04 
,0A,1F 
,0A,60 
,28,23 
,13,08 
,22,08 
,15,08 
,24,08 
,0A,13 
,0A,60 
,28,17 
,60,D0 
,2C,3C 
,23, 3C 
,3C,27 
,3C,27 



1*4X5.- LIST 



10 CALL MUSIC (1 ,0,1) :CALL V0ICE<@5> 

20 PLAY#2,"V15T200L4" 

30 SCREEN 1,0:WIDTH 32:DEFINT A-Z : COLOR 

1,15,14:KEY0FF 

40 FOR 1=776 TO 783: READ A*:VPOKE I,VAL( 

"?<H"+A*) :NEXT:C=384 

50 FOR 1=0 TO 9:A*="":F0R J=0 TO 7:P=VPE 

EK(C) :A*=A*+CHR*(P) 

60 C=C+1 :NEXT : SPRITE* < I ) =A* :NEXT 

70 FOR 1=0 TO 22: FOR J=l TO 23 STEP 22 :L 

OCATE J,I:PRINT STRING* (8 , "a" ) :NEXT :NEXT 

80 X*="0123456789" : Y=0 :R=RND (-TIME) :SC=0 

90 XX=INT(RND(1)*10)+11 :X=XX*8 :C=INT (RND 

(1)*10) 

100 LOCATE 10,22:PRINT "a SCORE"SC"a" :FO 

R T=Y TO 152 STEP 3 

110 S=STICK<0) :IF S=7 THEN X$=MID* <X* ,2 , 

9)+MID*<X*,l ,1) 

120 IF S=3 THEN X*=MID* (X* ,10 ,1 )+MID*(X* 

,1,9) 

130 LOCATE 10,20:PRINT"a"X*"a" 

140 PUTSPRITE 0, (X,T) ,1,C:NEXT 

150 IF " "+CHR*(VPEEK(XX+20#32+S<H1800) ) = 

STR*(C) THEN GOSUB 190:SC=SC+1 ELSE GOSU 

B 180: GOTO 200 

160 CO=CO+l:IF CO=10 THEN LOCATE 5,Y/8:P 

PINT STRING*(22,"a") :Y=Y+8:CO=0:FOR 1=0 

TO 1 : GOSUB 190:NEXT 

170 GOTO 90:DATA 7E ,81 ,A5 ,81 ,BD ,99 ,42 ,3C 

180 CALL PITCH(440) :PLAY #2 , "o6T230V15d4 

.":FOR 1=440 TO 410 STEP -1 :CALL PITCH (I 

) :NEXT:RETURN 

190 PLAY #2,"o6d4." :FOR 1=410 TO 459:CAL 

L PITCH (I) :NEXT:RETURN 

200 IF STICK (0)=1 THEN CO=0 :CLS :GOTO 70 

ELSE 200 
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100 ' ••• i/3* tlfj 

110 SCREEN1 ,2:C0L0R 15 , 1 , 1 :WIDTH32 :KEYOF 

F:DEFINT A-Z :GOSUB 480 

120 DIM SC(104) :SC(97)=10:SC(104)=-30 

130 DIM PY*<104) :PY*(97)="05C06C" :PY*(10 

4)="03CC+CC+" 

140 C*(l)="a" :C*(0)="h" :PLAY"V15L64" 

150 FDR 1=0 TO 8:READ S(I):NEXT 

160 A*(1)=CHR*(27)+"L" 

170 A*(0)=CHR*(27)+"M"+CHR*(27)+"Y6 " 

180 I FT I ME >6 1935! THEN L0CATE8 , 10 : PR I NT" 

WAIT A MINUT! "60-INT< (TIME-61935! )/60) :G 

OTO180 

190 A=l :S0=0:S1=0:X0=76:X1=157:P0=0:P1=0 

200 T!=TIME+3600 

210 ' ••• V* -L 29-> ••• 

220 IF STRIG(0) AND P0>0 THEN A=-(A<>1): 

P0=P0-1 :PLAY"05CEG" 

230 IF STRIG(l) AND P1XB THEN A=-<A<>1>: 

P1=P1-1 :PLAY"05CEG" 

240 PRINTCHR$<11) ;" PLAYER1 " ;30 ;TAB ( 13) ; 

"PLAYER2" ;S1 ;TAB(26) ;"T" ; (T! -TIME) ¥60 

250 R=INT(RND<1)*32) :PRINT A* (A) TAB (R) C* 

<RND(1>*1 .1) ; 

260 X0=X0+S<STICK(0) ) :X1=X1+S(STICK(1) ) 

270 PUT SPRITE0,(X0, 90) ,5, A 

280 PUT SPRITE1,(X1, 90) ,8, A 

290 V0=VPEEK ( 2<H 1 98 1 +X0¥8 ) : S0=S0+SC < V0 ) 

300 Vl=VPEEK(S:Hi981+Xl¥8) :S1=S1+SC ( VI ) 

310 P0=P0-(V0=97) :P1=P1-(V1=97) 

320 PLAY PY*(V0)+PY*(V1) 

330 IF T!-TIME>0 THEN 220 

340 ' 4MMI r'-L St-iS"- — 

350 LOCATE 13 ,9 :PRINT"TIME UP!" 

360 PLAY "t 1205m200001 8o4-fcfcececd4co3bo 

4c2V15L64" , "t 120sl 8o4co3ao4co3ao4co3go4c 

o3gb4agg2" , "t 120vl2o31 2-f edc 

370 FOR 1=1 TO 1000:NEXT 



380 CLS:PUT SPRITE0 , (0 ,200) :PUT SPRITE1 , 

(0,200) 

390 LOCATE 14 ,9 :PRINT"SCORE" 

400 PRINT 

410 PRINT TAB(ll) ;"PLAYER1" ;S0 

420 PRINT TAB (11) ;"PLAYER2" ;S1 

430 PRINT 

440 PRINT TAB (9) ; "REPLAY CY] KEY" 

450 I*=INKEY* 

460 IF I*="Y"ORI*="y" THEN 180 ELSE 450 

470 ' •*• vram t#f *•• 

480 Al*="" :A2*="":F0R 1=1 TO 16 

490 READ A*:B*=CHR*(VAL("&h"+A*) ) 

500 A1*=A1*+B*:A2*=B*+A2$:NEXT 

510 A3*="":F0R 1=1 TO 16 

520 READ A*:B*=CHR*(VAL("2<h"+A*) ) 

530 A1*=A1*+B*:A3*=B*+A3*:NEXT 

540 SPR I TE* ( 1 ) =A 1 * : SPR I TE* ( ) =A2*+A3* 

550 FOR 1=0 TO 1 :READ A* :A=ASC < A*) *B 

560 FOR J=0 TO 7: READ B* :B=VAL ( "&H"+B$) 

570 VPOKE A+J,B:NEXT:NEXT 

580 FOR 1=392 TO 720 STEP 8 

590 FOR J=0 TO 1 :FOR K=0 TO 3 

600 N=I+J*4+K:S=VPEEK(N) 

610 SS=S OR S¥2:IF J=0 THEN SS=SS¥2 

620 VPOKE N,SS:NEXTK,J,I:FOR 1=0 TO 7 

630 VPOKE 384+1 ,VPEEK (632+1 ) :NEXT 

640 VPOKE 451 ,&H7E 

650 VPOKE ?<H200C,S<HA1 : VPOKE &H200D ,?<HC1 

660 RETURN 

670 DATA 00,01,01,01,01,03,03,06 

680 DATA 06,8C,8C,8C,9E,BB,F3,81 

690 DATA 00, 00, 00, 00, 00, 80, 80, C0 

700 DATA C0,62,62,62,F2,BA,9E,02 

710 DATA h ,3c ,7e,f-f ,-F-f ,-fd,fd ,72,3c 

720 DATA a,3c ,7e,c3,db ,c3,7e,3c ,00 

730 DATA 0,0,8,8,8,0,-8,-8,-8 



v- 
I 

L 
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S 
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100 DEFINT A-Z: SCREEN 1,2: WIDTH 30 

110 COLOR 15,1:G0SUB 650:DIM D*(6,2) 

120 VPOKE ?<H2016,?<HA1 :VPOKE ?<H2017 ,?<HE1 

130 VPOKE S<H2018,S<H21 :C0L0R=(1 ,0,0,2) 

1 40 B*=CHR* (31) +CHR* ( 29 ) +CHR* < 29 ) 

150 PLAY "T250V15L8O5CEA2GED2EFG2ABO6C1" 

, " T250V 1 4L803CDE2FED2CDE2FGC 1 " 

160 REM »•» » •> DRAW STAGE 

170 IF GF THEN 200 

180 R=R+1:F0R N=l TO 2:F0R 1=0 TO 6 

190 READ D*(I,N):NEXT I,N:READ XX,YY 

200 CLS:FOR 1=0 TO 17:L0CATE 0,1 

210 PRINT "++" ;SPC(24) 5"^*" :NEXT 

220 LOCATE 0,18:PRINT STRING* (28 ," + " ) 

230 LOCATE 0,19:PRINT STRING* (28 , "*" ) 

240 FOR N=l TO 2: FOR 1=0 TO 6 

250 D=VAL("S<H"+D*(I,N)) 

260 FOR J=ll TO STEP -1 

270 LOCATE ( 12-J) *2 , 1*2+2 

280 IF D<2^J THEN 300 

290 D=D-2--\J:0N N GOSUB 310,320 

300 NEXT J, I ,N:X = XX :Y = YY:GOTO 5O0 

310 PRINT "7-f"+B*+" , rr" : RETURN 

320 PRINT , "T=T+B*+ , "7H" : RETURN 

330 REM •••••••• MAIN 

340 EF=0:IF STICK (0) THEN 340 

350 S=STRIG(0) :IF S THEN BEEP:EF=1 

360 K=STICK(0) :IF K=0 THEN 350 

370 VX=(K=7>-(K=3) :VY= (K=l ) - (K=5) 

380 P1=VPEEK (&H1801+ ( Y+VY ) *64+ (X+VX) *2) 

390 P2=VPEEK(2<H1801+ Y *64+ X *2) 

400 P3=VPEEK(?<H1841+ Y *64+ X *2) 

410 IF EF AND VX+VY AND P3=177 THEN LOCA 

TE X*2,Y*2+2:PRINT " "+B*+" 



420 IF VY= AND Pl= 32 THEN X=X+VX 
430 IF VY= AND Pl=185 THEN X=X+VX 
440 IF P2=185 AND Pl= 32 THEN Y=Y+VY 
450 IF Pl=185 THEN Y=Y+VY 

460 P=VPEEK(S<H1841 + Y*64+X*2) 
470 IF P<>32 OR (P 1 = 185 AND VYO-1) THEN 

500 

480 PUT SPRITE , (X*16+8 , Y*16) ,6 ,0 

490 Y=Y+1:IF Y=>8 THEN 520 ELSE 460 

500 PUT SPRITE 0, (X*16+8,Y*16) ,6,0 

510 GOTO 330 

520 REM >•>••■• CHECK ! 

530 PUT SPRITE , (X*16+8 , Y*16) ,6 ,0 

5413 GF=0:FOR IY=1 TO 7: FOR IX=0 TO 11 

550 P=VPEEK (&H1B01+IY*64+ I X*2) 

560 IF F-177 THEN GF=1 

570 NEXT IX,IY:IF GF THEN 620 

580 REM ••••••• CLEAR! or MISS! 

590 IF R=7 THEN 640 

600 PLAY "T250V15L8O5CER16EGFEDCDEFO6C1" 

, " T250V 1 4L802CER 1 6ECDEFGFEDC 1 " 

610 GOTO 160 

620 PLAY "T250V15L8O4AFEDO5CO4GFECDEDC1" 

, " T250V 1 4L802CDEFCDEFCDEFG 1 " 

630 GOTO 160 

640 PLAY "T250V15L4O5GEF2AEF2BAGFGFEDGEF 

2AEF2DEFGAB06C1 " , "T250V13L4O2EDC2EDC2EDC 

DEDC2EDC2EDC2EDCDFA03C1 " :END 

650 REM ••••••• CHARACTER 

660 READ C*,D*:IF C*="END" THEN 700 

670 FOR 1=0 TO 7:A=ASC(C*)*8+I 

680 VPOKE A,VAL("&H"+MID*(D*,I*2+1 ,2) ) 

690 NEXT:GOTO 660 

700 READ C:IF C=5963 THEN RETURN 
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I 

S 
T 



10 DEFINTA-Z :DIM F* < 12) ,FR* < 12) 

20 SCREENS : COLOR 15,4,4: fi|_S : OPEN " GRP : " AS# 

1 

30 FOR 1=0 TO 1 :LINE( 16-2*1 ,14-2*I)-( 184 

-2*1 ,30-2*1 ) ,11+1 ,BF :NEXT 

40 RD=1 

50 ' === MAIN === 

60 RP=PT:GOSUB620 

70 F=l :D=0:FR=0:R=12 

80 RESTORE680:FOR 1 = 1 TO 12 -.READ A*:F*(I 

)=A*:NEXT 

90 FOR 1 = 1 TO 6: READ A* :FR* < I ) =A* :NEXT 

100 LINE (104, 52) -STEP (128, 129) ,13, BF 

110 RESTORE640:IF RDOl THEN FOR 1 = 1 TO 

(RD-1)*4:READ X,Y:NEXT 

120 FOR 1=1 TO 4:READ X,Y 

130 LINE(104+16*X,52+16*Y)-STEP(16,16) ,4 

,BF:NEXT 

140 FOR 1=1 TO 12:X=(I-1)*18+28:DRAW"C15 

A0BM=X 5 , 196S8XF* < I ) ; " :NEXT 

150 X=48:Y=108 

160 COPY (8, 60) -STEP (80,80) TO (0,0), 1 

170 DRAW"S32BM48,108XF*(1) ;" 

180 ' 

190 I*=INPUT*(1) 

200 IF I*OCHR$(24) THEN 240 

210 IF FR THEN SWAP F* (F) ,FR$ (F) :FR=0 

220 F=F+1:IF F=13 THEN F=l 

230 IF F*(F)="" THEN220 

240 IF I*=CHR*<8) THEN IF FR*(F)<>"" THEN 

SWAP F*(F) ,FR*(F) :FR=NOT FR 
250 IF I$=CHR*<13>- THEN 360 
260 COPY (0,0)-STEP(80,80) ,1 TO (X-40,Y- 

40) ,0 

270 IF I*=CHR*(27) THEN PT=RP :GOSUB620 :G 

OTO 70 

280 IF STICK (0) =3 THEN X=X+16:IF X >232 T 

HEN X=X-16 

290 IF STICK (0) =7 THEN X=X-16:IF X<40 TH 

EN X=X+16 

300 IF STICK (0)=1 THEN Y=Y-16:IF Y<40 TH 

EN Y=Y+16 

310 IF STICK (0) =5 THEN Y=Y+16:IF Y>180 T 

HEN Y=Y-16 

320 IF STRIG(0) THEN D=D+1:IF D=4 THEN D 

=0 

330 COPY(X-40,Y-40)-STEP(80,80) ,0 TO (0, 

0) ,1 

340 DRAW"A=D;C15BM=X ; ,=Y;XF*(F) ;" 

350 GOTO190 

360 ' === JUDGE === 

370 IF FR THEN RESTORE 800 ELSE RESTORE 

760 

380 IF FOl THEN FOR 1 = 1 TO (F-1)*5:READ 

A*:NEXT 
390 DRAW"BM=X; , = Y;" 
400 FC=1 :FOR 1=1 TO 5 
410 READ A*:DRAW"BXA*;" 

420 IF POINT (PEEK (&HFCB7) ,PEEK (&HFCB9) X 
>13 THEN FC=0 
430 NEXT 



710 S*="":FOR K=0 TO 1 :READ D* 

720 FOR 1=0 TO 15 

730 S*=S*+CHR$ (VAL ( "&H"+MID* (D* ,1*2+1 ,2) 

) ) 

740 NEXT I ,K:SPRITE*(C)=S$:GOTO 700 

750 DATA 7,00FFC9E4F2B9DCEE,< ,00FE264E9E 

3A76EE ,0 ,B7EEDCB9F2E4C9FF 

760 DATA I,DAEE763A9E4E26FE,T,0C4C3F0C0C 

4C3F0C ,3 ,3032FC303032FC30 

770 DATA ^,AA55AA55AA55AA55,END, 

780 DATA 0,437E3E070203237F7F3C180D0F0F0 

F 1 F , E 1 BFBEF020E0E0FCFE 1 F0FDBF878787C 

790 DATA 5963 

800 REM ••■!«§> STAGE DATA 



440 IF FC=0 THEN BEEP:GOTO190 
450 PAINT (PEEK (?<HFCB7) ,PEEK (&HFCB9) ) ,4,1 
5 :DRAW"BM=X ; ,=Y ;C7XF* (F) ; " 

460 X= (F-l ) *18+18 :LINE (X , 186) -STEP (20 ,26 
) ,4,BF 

470 PT=PT+50:GOSUB620 
480 IF FR THEN FR=0 
490 F*(F>="" 

500 R=R-1:IF R=0 THEN 550 
510 F=F+1:IF F=13 THEN F=l 
520 IF F$ <F)="" THEN 510 
530 D=0:X=48:Y=108 
540 GOTO 330 

550 ' === ROUND CLEAR === 
560 PLAY " V 1 5L20O4ABAGF+ED . R 1 0O2D8 " 
570 PRESET(30,38) :C0L0R,4:IF RD<>12 THEN 
PRINTftl ,"GOOD WORK! CHALLENGE NEXT" ELS 
E PRINTttl," YOU'RE KING OF PUZZLE!" 
580 PRESET (70, 196) : IF RDOl 2 THEN PRINT* 
1," STRIKE ANY KEY" ELSE PR I NT* 1," THE 
END" :GOTO580 
590 I*=INPUT#<1) 

600 LINE (30, 38) -(240, 204) ,4,BF 
610 RD=RD+1 :GOTO50 
620 ' 

630 PSET(24,17) :COLOR , 12 :PRINT#1 ,USING"R 
OUND : *# SCORE : ##** " ; RD ; PT : RETURN 
640 ' === ROUND DATA === 

650 DATA 3,3,4,3,3,4,4,4, 0,0,0,7,7,0,7, 
7, 0,0,0,1,1,0,1,1, 1,1,6,1,1,6,6,6 
660 DATA 3,0,3,1,4,0,4,1, 2,2,2,5,5,2,5, 
5, 2,3,2,4,5,3,5,4, 1,1,1,2,2,1,2,2 
670 DATA 1,2,2,1,5,6,6,5, 1,6,3,4,4,3,6, 
1, 2,5,3,3,4,4,5,2, 2,2,3,3,4,4,5,5 
680 ' === FRAG. DATA === 

690 DATA BF1R2D2L4U4L2U2R4D4 ,BF1D2L2U4L2 
U2R4D2R2D2L2 , BF 1 D4L2U8R4D2L2D2 
700 DATA BF1D4L2U8R2D2R2D2L2,BF1D4L2U6R2 
U2R2D4L2 ,BH1L2D4R4U6L2D2 

710 DATA BG1R4D2L6U6R2D4,BE1D4L2U4L2U2R6 
D2L2 , BE 1 D2R2D2L4U2L2U4R2D2R2 
720 DATA BF1D2L2U2L2U2R2U2R2D2R2D2L2,BF1 
D4L2U 1 0R2D6 , BF 1 R2D2L4U6R4D2L2D2 
730 ' === FRAG. DATA (REV) === 
740 DATA BF1D2L4U2R2U4R4D2L2D2,BE1D4L2U2 
L2U2R2U2R4D2L2 , BF 1 D4L2U6L2U2R4D4 
750 DATA BF1D4L2U4L2U2R2U2R2D4,BE1D6L2U4 
L2U4R2D2R2 ,BE1R2D4L4U6R2D2 
760 ' === JUDGE-POINT DATA === 
770 DATA D2,U2,U2,L2,F4, R2 ,L2 ,D2 ,U4 ,L2 , 

D4 ,U2 ,U2 ,U2 ,R2 , R2 ,L2 T U2 ,D4 ,D2 
780 DATA D4,U2,U2,R2,U2, U2 ,D2 ,D2 ,L2 ,U2 , 

F2,L2,L2,U2,U2, D2 ,U2 ,U2 ,R2 ,L4 
790 DATA F2,L2,U2,L2,U2, D2 ,U2 ,U2 ,F2 ,L4 , 

D4 ,U2 ,U2 ,U2 ,U2 , D2 ,R2 ,U4 ,L2 ,D2 
800 ' === JUDGE-POINT DATA (REV) === 
810 DATA E2,L2,D2,D2,L2, L2 ,R2 ,D2 ,U4 ,R2 , 

D4,U2,U2,U2,L2, L2 ,R2 ,U2 ,D4 ,D2 
820 DATA D4,U2,U2,L2,U2, U2 ,D2 ,D2 ,R2 ,U2 



810 DATA ,801 ,204,10,40, ,180, ,402, 10A, 28 

,A0,,,1,1 

820 DATA ,1E,200,40,498,200,DE7,7E0,1,5, 

830 DATA ,403, 3F8, ,81 ,30 ,70E ,200 ,804 ,804 

,800,902,902, ,5,2 

840 DATA ,31E,1 ,B48, 3, 70C,F0, ,420,420,42 

0,420,20, ,1 ,3 

850 DATA , 230, 188, 8, 608, 8, 9E7, ,447,800,9 

60, 910, 910,, 6,1 

860 DATA , 234, 608, 180, 436, 800, 66F, ,42,84 

2,802,801 ,181 , ,3,1 

870 DATA ,28C,831 ,5E8 ,42 ,E38 , ICE ,400 ,162 

,2,4,81 ,81, ,4,1 
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